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EDITORIAL 


Chers Amis, 


Ce JPC est le soixantième du nom. Cela signifie que notre Club a déjà six ans. 
Cela fait un bel âge. Mais parlons du Club, justement : les services postaux ayant 
subi quelques perturbations, nous avons décidé de reporter la date limite de 
remise des candidatures pour le nouveau Bureau. Dépêchez-vous donc de vous 
faire connaître... 


A ce propos, n'oubliez pas notre Assemblée Générale qui se tiendra le samedi 7 
janvier 1989 de 14 à 16h. 


Vous trouverez quelques détails supplémentaires sur le HP-42S dans ce numéro. 
Des rumeurs de plus en plus insistantes font mention d’un successeur pour le 
HP-41 différent du HP-42S. On parle d’une HP-48, super HP-28 avec des 
entrées/sorties. Espérons que ce ne sont pas des élucubrations sans fondement. 
Nous en saurons vraisemblablement plus vers le milieu de cette année 89. 


HP semble vouloir réserver à l’'HP-IL le même sort qu’au HP-71 dont arrêt est 
officiel et irrévocable. Motif avancé : les ventes ne sont pas suffisantes. Je me 
demande comment HP comptait avoir des ventes suffisantes sur des produits 
sans avoir jamais fait leur publicité. Quelque chose doit m’échapper. 


Notons que malgré ces arrêts successifs, beaucoup de choses se font encore sur 
le HP-71. Voir à ce propos l’article sur les nouveautés. 


Un dernier point, Je remercie tous les membres qui ont écrit des articles, et qui 
ont donc permis de faire ce JPC. Mais il n’y a à nouveau plus d’articles pour le 
prochain numéro. Aussi, profitez des prochaines vacances pour nous concocter 
de belles petites merveilles ! 


Allez, les fêtes approchent, je vous laisse faire vos emplettes. 


Joyeux Noël ! 


Pierre David (37) 
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COURRIER DES LECTEURS 


Aimé Buisson (307) 
9 rue de l’Aiïguillerie 
34000 Montpellier 


Messieurs et Chers Amis, 


Vous trouverez ci-joint le renouvellement de mon 
abonnement et, à cette occasion, je vous fait part de 
mon étonnement de savoir que la production du 
HP-71B est arrêtée ; ce qui signifie, en conséquence, 
que tous les modules et accessoires le sont 
également... 


Alors, quel est l’avenir pour ce calculateur ? Pour 
quelle raison sa production a-t-elle été stoppée ? 
Alors que le HP-41 survit encore depuis son 
apparition en 1979 (ce qui d’ailleurs n’est pas un 
reproche de ma part vis-à-vis de ce dernier). Il me 
semble que des éclaircissements sans parti pris 
devraient être donnés par le Club vis-à-vis de ces deux 
matériels. 


D'autre part, bien que le Club ait pour objet de réunir 
les possesseurs de calculateurs HP, il me semble 
qu’une comparaison avec le matériel concurrent 
existant serait appréciée de beaucoup. 


HP me parait se lancer dans une nouvelle politique de 
ventes vis-à-vis des calculateurs de poche qui 
paraissent à un rythme inconnu jusqu'alors. La 
réputation de suivi me laisse sceptique. 


D’autre part les variantes entre les calculatrices 
(notation algébrique, RPN, Basic) ont bien des 
raisons : quelles sont elles ? Une comparaison 
objective entre ces différents systèmes me semblerait 
opportune. 


Si ma lettre vous semble de quelque intérêt pourquoi 
ne pas en faire les sujets de vos articles à venir ? 


Je vous fais tous mes voeux de longue durée et vous 


exprime mes meilleurs sentiments. 


Aimé Buisson (307) 
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COURRIER DU COEUR 


Janick Taillandier 
335 rue Lecourbe 
75015 Paris 

Tél : (1) 45 54 18 83 


Vend : 


Module HHP 32Ko Ram / 32Ko Eprom pour 
HP-71 : 1000 FF. 


La Règle à Calcul (Demander Philippe Burgan) 
65-67 Bd St Germain 

75005 Paris 

Tél : (1) 43 25 68 88 


Vend : 


Lecteurs de cassettes HP-82161A neufs (jamais servis, 
dans les boîtes d’origine) : 2000 FF TTC. 


Eric Gengoux 

8 rue de Furstemberg 
75006 Paris 

Tél : (1) 46 33 65 79 


Vend : 
HP-28C : 700 FF. 


Alain Villatte 

3 rue Emile Masson 
56300 Pontivy 

Tél : 97 25 22 3%6 


Vend : 
HP-71 + module HPIL + modules Text et Finance + 
imprimante ThinkJet HP2225, le tout : 4000 FF. 


Pierre David 
33 Bd St Martin 
75003 Paris 


Vend : 


Imprimante ThinkJet HP2225 : 2000 FF, lecteur de 
disquettes HP-9114 : 3500 FF. 





LE HP-42S 


Nous vous avons parlé très brièvement du HP-42S 
dans l'éditorial du précédent numéro de JPC. Nous 
pouvons maintenant compléter le tableau. Cette 
machine n’a pas pour vocation, semble-t-il, de se 
situer dans la ligne qui conduit du HP-20S au 
HP-28$ : elle est là pour rajeunir le HP-41. Le 
HP-28S reste toujours le haut de gamme des 
calculatrices HP. 


LE HP-42$ ressemble très fortement à un HP-27S 
avec un afficheur de deux lignes de 22 caractères (soit 
131xX16 points). Elle contient 8 Ko de mémoire vive 
dont 7200 sont disponibles pour l’utilisateur. Il n’y a 
toujours pas de possibilité de connexion de modules 
ou de périphériques autres que la petite imprimante à 
infra-rouges que nous connaissons déjà avec les 
HP-28 par exemple : c’est très dommage. Le HP-42S 
est déjà disponible aux Etats-Unis, par exemple chez 
EduCALC pour $89. 


Voici pour une présentation rapide des faits 
marquants à propos de cette machine. Il n’est presque 
pas nécessaire d’en dire plus : vous savez déjà tout. 
En effet, le jeu de fonctions et toute la structure de la 
machine ont été inspirés très fortement par le HP-41 : 
jusqu'aux flags qui ont la même signification sur les 
deux machines ! 


Pour être plus précis, le HP-42S serait plus un HP-41 
avec module Advantage qu’un simple 41. En effet, on 
trouve : 

- l'interface par menus à laquelle nous sommes 
maintenant habitués existe également, de plus il existe 
un menu utilisateur qui remplace le mode USER, 

- l'intervalle de définition des nombres est +10*4?, 
habituel sur les processeurs dérivés du HP-71B, 

-le registre ALPHA contient 44 caractères, le clavier 
alphabétique n’existe pas, mais est accessible par des 
sous-menus, 

- le traitement des nombres complexes que l’on peut 
spécifier en coordonnées polaires ou cartésiennes, 

- des opérations sur les matrices. Les matrices sont 
directement mises sur la pile ; elles y sont 
représentées sous la forme [2 x 3 matrix]. Un éditeur 
de matrices existe, 

- les fonctions SOLVE et INTEGRATE, 


-un jeu de fonctions statistiques très amélioré 
permettant de traiter l’ajustement de courbes en 
donnant le meilleur choix parmi les quatre modèles 
classiques (linéaire, logarithmique, puissance et 
exponentielle). 

-les fonctions sur nombres entiers dans les quatre 
bases, 

- les fonctions hyperboliques classiques, 

- l'adressage point par point de l’écran graphique. 


Il faut noter que contrairement au HP-27S, il n’y a 
pas de mode horloge disponible sur le HP-42S. 


La vitesse est sensiblement 10 fois celle d’un HP-41, 
et environ la moitié de celle d’un HP-28$. 


Un dernier point : l’éditeur de mémoire qui existe sur 
le HP-27S (voir JPC 54 page 4) se retrouve sur le 
HP-42S. Il suffit d'appuyer simultanément sur [EXIT] 
et [LOG] puis sur [+]. Les touches [*], [/1, [+1 et [-] 
sont similaires au HP-27S. De plus, t.1 semble lancer 
l'exécution à partir de la valeur courante du pointeur. 


En résumé, après un flot de machines de bas de 
gamme assez limitées, HP nous propose à nouveau 
une machine convenable qui prolonge l’existence de 
vos programmes conçus pour une machine née il y a 
10 ans. De plus, l'absence de moyens de sauvegarde 
limite obligatoirement les possibilités du HP-42S : ce 
n’est pas un ordinateur, à la différence du HP-41, 
c’est un simple calculateur de haut de gamme. 
Attendons le milieu de l’année prochaine pour 
découvrir le nouveau haut de gamme de HP. 


Janick Taiïllandier (246) 


Note : toutes ces informations nous sont parvenues grâce au 
réseau Unix qui est à ce jour notre seule source d'information. 
Remercions en particulier Ken Wallich (U.S.A.), Lance 
Schnatterly (U.S.A.), Jake Schwartz (U.S.A.) et Rabin Ezra (G.B.) 
pour les informations qu'ils ont fournies. 
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HP-42S 
Plus de 600 fonctions 








Un partenaire L'affichage alphanumérique 

performant sur deux lignes fait apparaître 
des résultats annotés, des 
messages courts et des menus 
qui vous indiquent le 
processus à suivre. 


Ce calculateur vous permet 
de créer vos propres 
programmes ou de faire appel 
à ceux qui existent déjà pour 


le HP-41CV/CX. 


Un manuel d'applications 
techniques et d'exemples de 
programmation vous 
apprendra comment utiliser 
la fonction résolution 
d'équations avec des matrices 
et la fonction d'intégration 
numérique ; il vous permettra 
également d'améliorer les 
programmes du 


HP-41CV/CX. 





Sa mémoire vive de 


Le HP-425 s'adresse plus 7,2 Koctets stockera tous vos 
particulièrement aux programmes. Une 

étudiants des écoles imprimante à infrarouge est 
d'ingénieurs. Avec plus de disponible en option. 

600 fonctions intégrées, il 

permet de traiter n'importe HP-42S : la puissance à 
quelle application. Menus et l’état pur. 


messages vous guident tout 
au long de vos équations 
simultanées. Il ne vous reste 
plus qu’à entrer des variables, 
éditer ou manipuler des 
données à votre guise. 


Le HP-42S exécute à votre 

lace les calculs complexes et 
Éstidieus grâce à la notation 
polonaise inverse. 
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HP27 


E. Gengoux & R. Amram 
E. Gengoux 


HP28 


R. Chiche 
J. Devémy 
M. Besson 
P. Heiïlbronn 


Lu pour vous 
La devise de la HP-27 


Tracé de courbes 

Trois petits programmes et puis s’en vont 
Géométrie analytique 

Le facteur est constant (acte IIT) 

S.OS. 


nu 
à ND © œ 


nu 
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LU POUR VOUS 


Pour mieux connaître la HP-27, ou tout simplement 
pour apprendre à s’en servir de manière à la fois plus 
agréable et plus pédagogique qu'avec le seul manuel 
utilisateur, voici deux excellents ouvrages. Ils sont en 
anglais, bien entendu, mais ceci ne devrait pas 
constituer un gros obstacle, leur style étant clair et 
leur vocabulaire très accessible. 


An Easy Course in Using The HP-27S 


An Easy Course in Using The HP-27S, de Chris Coffin 
et John W. Loux, est disponible chez EduCALC, mais 
aussi en France chez HP-DIRECT. Il s’ajoute à toute 
une collection d'ouvrages des mêmes auteurs, chez 
Grapevine Publications, concernant la 41, la 12, et 
tout dernièrement la 28C et la 28S. Le style en fait un 
support de cours plutôt qu’un manuel de référence, et 
l'humour n’en est pas exclu : la 28 est en effet 
présentée comme un avion dont vous seriez le pilote, 
et vous fait découvrir successivement : 


-le pré-vol : ce que la machine peut/ne peut pas 
faire, et l'introduction générale du livre, 


-la préparation au sol clavier (commandes), 
affichage (cadrans) et menus (cartes et documents 
aéronautiques, pour le navigateur), 

- le pilotage de base : opérations arithmétiques, pile 
opérationnelle, menus TRIG, HYP, PARTS, BASE... 


Après un examen de qualification premier degré, on 
peut passer à un pilotage plus évolué : 

- analyser vos données de vol, menu sTAT et listes, 

- établir vos propres plans de vol avec le menu SOLVE, 

- voler à l’économie avec le menu Tw. 


Chacun des chapitres est suivi de tests de 
compréhension, avec corrigé commenté, pour vous 
assurer que vous avez compris l'essentiel et que vous 
pouvez en toute sécurité être lâché en solo pour la 
suite. D’où le nom de test de qualification utilisé par 
l’auteur ! 


Tout ce qui concerne la HP-27S n’est pas décrit, bien 
sûr, ce cours ferait alors double-emploi avec le 
Manuel HP ; par contre, à l'issue de sa lecture, vous 
saurez ce qu’il faut savoir pour profiter pleinement du 
reste, et vous aurez été pris en main comme par un... 
moniteur d’aéro-club ! Le tout en 190 pages très 
aérées, abondamment illustrées et d’un style très 
plaisant à lire. 
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Mastering the HP-27S 


Mastering the HP-27S, de Richard Harvey, édité par 
l’auteur et disponible seulement chez EduCALC, 
procède d’une démarche différente : c’est à la fois un 
cours et un manuel de référence ; son style est donc 
plus académique. 


Richard Harvey n’est pas un inconnu pour nous : il a 
en effet écrit d’excellents logiciels pour le HP-75 et le 
71 (WorkBook, File Management Applications, etc.) et 
un ouvrage remarquable sur le 71 dont je crois vous 
avoir parlé (The Basic HP-71, Up and Running in 
CALC Mode, Basic and Assembly Language). En bref, 
un bon auteur. 


Le style est plus sérieux, mais reste très clair et, 
j'insiste, agréable et facile à lire. Il est plus complet 
que l’ouvrage précédent et s’adresse à un public qui 
connaît déjà un petit peu la machine, et souhaite aller 
un peu plus loin. Ainsi développe-t-il davantage le 
menu SOLVER, les possibilités d'utilisation des noms de 
variables et de leurs valeurs associées dans d’autres 
équations, les clauses 1F, Solve-for et Sigma, 
l'utilisation avancée de la pile et des dix registres 
numérotés, l’art de conserver des tas d'équations et 
de listes de données dans la machine, le mini-éditeur 
de texte associé aux menus TIME et PRINTER, et bien 
d’autres choses encore... 


Au total, 128 pages en format 17x21, une qualité 
typographique proche de celle du manuel de qui vous 
savez, qui constituent un bon complément de celui-ci. 
Un seul petit regret : l’auteur a laissé subsister 
quelques fautes d’anglais dans son texte, et une erreur 
dans une table de vérité. Dommage, l'ouvrage eût été 
quasiment parfait excepté cela... 


Eric Gengoux (108) 
Robert J. Amram (390) 





LA DEVISE DE LA HP-27S 


Dans un précédent article, je vous avais indiqué les 
possibilités des clauses 1F, So/ve-for, Let et Get en 
matière de menus à choix multiples. Dans certains 
cas toutefois, cela peut conduire à des formules 
passablement lourdes et complexes, et il existe un truc 
pour se tirer d'affaire plus économiquement. 


Considérons, par exemple, le problème suivant, qui 
pourra d’ailleurs tout aussi bien concerner les 
utilisateurs de la HP-17B : 


Vous êtes amenés à vous déplacer dans tel ou tel pays 
voisin, et aimeriez, au moyen d’une seule et judicieuse 
formule, pouvoir convertir des sommes de diverses 
devises, soit directement en Francs, soit en une autre 
devise En effet, si vous arrivez, mettons, de 
Francfort à Zurich, avec en poche pas mal de Marks, 
vous chercherez combien ils donneront directement 
en Francs suisses, si possible sans conversion 
intermédiaire en Francs français, non ? 


Ecrivons donc la formule. Les taux de change 
indiqués sont les cours centraux au 16 novembre 1988. 


CHGE161188: FF - FB*0.16300 - FS*4.0790 - DM*3.4160 
- GBP*10.7950 - PTA*0.051865 - LIT*0.0045915 
- ECU*7.0780 - USD*5.9600 - YEN*0.04830 


Maintenant, faisons [CALCI, pour faire apparaître le 
menu : 


[FF] [FB] CFS] [DM] [gBP] [PTA] [LIT] [ECU] [USD] [YEN] 


Et, attention : c’est ici que cela devient puissant. Si 
lon prend la précaution de faire ICLEAR DATA] à 
chaque fois, on peut convertir une monnaie 
quelconque, voire même un panier de monnaies en 
une autre, quelconque elle aussi, sans traîner une 
collection pas possible de 1F et de s.. Mieux encore, 
comme c’est lappui sur une touche de menu 
quelconque, sans entrer de valeur associée, qui 
déclenche l’évaluation de l'expression, on peut faire le 
calcul avec un nombre quelconque de devises. 


Ce truc est valable dans nombre d’autres cas. Par 
exemple, des conversions d’unités telles que celle-ci : 
SURFACE :M2+1E6*KM2+4046.87*ACRE+1E4*HA+0.0929*FT2 


Jai essayé d’en faire autant avec ma 28 mais, las, il 
n’est pas possible de remettre à zéro directement les 
seules variables numériques, sous peine d’effacer le 
reste ! Il faut donc entrer 0 explicitement pour chaque 
devise non utilisée présente au menu, ce qui ralentit 
l'utilisation, sous peine d’avoir droit au message 
Undefined Variable. Avis aux amateurs... 


Ah ! J'allais oublier : dans la formule de change, les 
taux utilisés sont directement ceux qui apparaissent 
dans votre journal (cours du jour), sans aucun calcul 
compliqué ! Plus de crainte de perdre au change ! 


Eric Gengoux (108) 





TRACE DE COURBES 


Les deux programmes que je vous propose 
permettent de tracer des courbes en polaire et en 
paramétriques. Ils utilisent quelques possibilités du 
HP-28$ et je pense qu’ils pourront servir à tous ceux 
qui ont besoin de ces deux types de tracés de courbes. 


Equation polaire 


Tout d’abord, voici le programme : 


«+aboc 
«ab 
FOR 
Re AXTTSTO 
EQ -NUM ABS 
* 
R+C P+R CR 
ba-c/ 
STEP 
DEPTH 2 / 2 2 +LIST 
+ARRY 


» 


CLLCD STOZ SCLZ DRWE DGTIZ 
» 


‘POL' STO 


1) Entrer l'équation dont x est variable par STEQ. Par 
exemple, pour la fonction ! = 28, entrer : 
12XX! STEQ 


2) Entrer successivement dans la pile : 

- la valeur minimale de x, 

- la valeur maximale de x, 

- la précision du tracé (en nombre de points). 


Par exemple : 

x minimum : 0 + niveau 3 de La pile 
x maximum : 6xx = 18,85 + niveau 2 

nombre de points : 200 + niveau 1 


3) Taper Pol. Par exemple pour A = 28, avec 
0 < 8 < 6x et 200 points calculés, vous obtenez une 
jolie «Spirale d’Archimède » à 3 enroulements 
successifs. 


4) Toutes les fonctions communes, utilisées par DRAM, 
sont utilisables comme *H, *4, PMAX, PMIN... grâce à la 
fonction DGTIZz. Pour refaire le tracé suivant les 
nouvelles caractéristiques, utiliser DRAWS et non DRAW. 
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Courbes paramétriques 


Voici le programme : 


«+aboc 
« RCEQ +STR ‘= POS 
1 + DUP 2 - 
RCEQ -STR SWAP 1 SWAP SUB 
STR+ !'X1! STO 
RCEQ -+STR SIZE 2 + 
3 ROLL SWAP SUB 
LLR EL SWAP + 
STR+ !'X2! STO 
a b FOR 
* * 1X! STO 
X1 -NUM 
X2 NUM 
ba-c/ 
STEP 
DEPTH 2 / 2 2 +LIST 
—+ARRY 
» 
CLLCD STOZ SCLÈZ DRWE DGTIZ 


» 
IPARA! STO 
1) Entrer les deux équations dont x est variable par 


STEQ. Par exemple, pour la fonction : 


X(6) = 30 cost + 30 cos 34/2 
y() = 30 sint - 30 sin 3/2 


entrer : 


"30*COS(X)+30*COS(3*X/2)=30*SIN(X)-30*SIN(3*X/2)! 
STEQ 


2) Même procédure que pour les courbes polaires. 
Avec l’exemple présenté ci-dessus : 

x minimum = 0 

x maximum = 4xr = 12,57 

nombre de points = 200 


3) Taper PARA. Pour notre exemple, avec 0 < { < 4r et 
200 points, on obtient une hypocycloïde à 5 branches. 


4) Mêmes remarques que pour les courbes polaires. 


Ronic Chiche (501) 
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TROIS PETITS PROGRAMMES 
ET PUIS S’EN VONT 


Suite à l'appel pour de nouveaux articles, je vous 
envoie trois petits programmes de débutant qui, je 
l'espère, pourront rendre service aux autres membres 
de PPC Paris. Je tiens à féliciter toute l’équipe qui 
rédige JPC, il est superbe. 


Nombre de zéros 


Tout d’abord, deux programmes qui serviront aux 
mathématiciens. Le premier (N2F) calcule le Nombre 
de Zéros à la fin d’une Factorielle. Il suffit de mettre 
le nombre # dans la pile et NZF renvoie le nombre de 
zéros figurant à la fin de la factorielle. 


Exemple : 
2 [ENTER] NZF renvoie Ü 
10 [ENTER] NZF renvoie 2 


Le programme peut aussi s’utiliser comme fonction : 
NZF(100) renvoie 24, 


«nn 
« 
n DUP LOG 5 LOG / 
IP O SWAP 1 SWAP 


FOR i 
SWAP DUP 5 i * / IP ROT 
NEXT 
SWAP DROP 
» 
» 
Formule de Stirling 


Le second programme est basé sur la formule de 
Stirling qui permet d’approximer la fonction r et donc 
x! aussi. Il s’utilise aussi comme une fonction. 


Exemple : 

FACM(500) renvoie 
Niveau 2 : 1134 
Niveau 1 : 1,22013683966 

Donc 500! = 1,2201x1011% 


«nn 
« 
IF n 253 > 
THEN 
n LOG 1 EXP LOG - n * x 2 * -NUM LOG 
n LOG + 2 / + 1 12 n * INV + n SQ 288 * INV 
+ n 3 7 INV 139 51840 / * - n SQ SQ INV 571 


2488320 / * - 163879 209018880 / n 5 * INV * 
+ n 6" INV 437267 6270566400 / * + LOG + 
DUP FP ALOG SWAP IP SWAP 
ELSE n FACT 
END 
n DROP 
» 


» 
Calculs sur fractions 


Le troisième programme fait suite à celui de 
Sébastien Lalande dans JPC 56 sur les fractions. Dans 
certains cas, son programme nest pas très précis 
(108, 10°). Mon programme utilise la méthode des 
fonctions continues et des réduites. Il permet 
d’atteindre une précision meilleure (10° et même 
plus). 


Exemple : 
7 NUM RED renvoie 
Niveau 2 : 5419351 
Niveau 1 : 1725033 
Ce rapport donne x à 3x10°4 près (en environ 38 
centièmes). 


« 

59 CF 1 O DUP 2 SWAP 5 ROLL 

DO 
DUP FP INV SWAP IP 3 PICK OVER * 
SWAP 5 PICK * 7 ROLL + SWAP 6 ROLL + 
OVER 4 ROLL SWAP SQ INV 
000000000001 

UNTIL < 

END 

IF DUP 1 0 / == 

THEN 3 DROPN SWAP 

ELSE DROP 3 ROLL DROP 3 ROLL DROP SWAP 

END 

59 SF 


Je joins aussi le programme que j'ai utilisé pour 
chronométrer les autres. Il fait appel à SYSEVAL puit 
lance le programme à exécuter. Puis, il récupère la 
première valeur de SYSEVAL en haut de la pile et fait 
les calculs. Le résultat est en secondes. Note : 
remplacez NT par le nom du programme à 
chronométrer. 


« 
& FIX HEX #11CAh SYSEVAL 
SWAP NT 
#11CAh SYSEVAL 
DEPTH ROLL - 40 STWS B-R 
64 STWS 8192 / 3600 / HMS+ 1000 * RND 


STD 


» 


Jérôme Devémy (495) 


GEOMETRIE ANALYTIQUE 


Puisqu’il semble qu’il y ait ces temps pénurie de 
programmes pour HP (HP-28 en tous cas), j'ai décidé 
de vous envoyer 11 petits programmes bien pratiques 
pour résoudre nombre de problèmes de géométrie 
analytique. 


Il faut quand même prendre garde à certaines choses 
pour l’utilisation de ces programmes : 

-les équations de droites sont de la forme 
ax + by + c = 0, entrées sous la forme fa b c] (un 
vecteur). 

-les équations de cercles sont soit de la forme 
ax? + by? + cx + dy + e =0, entrées sous la forme 
La b c d e], soit de la forme centre et rayon, entrées 
sous la forme [Cx Cy1 au niveau 2, r au niveau 1 (pas 
sous forme de vecteur). 


Ceci dit, commençons : 


1 - Equation de la droite passant par deux points 
donnés 


Niveau 2 : LA, 

Niveau 1 : (B, B 

En sortie : les coefficients a, b et c de la droite sous 
forme de vecteur bien sûr. 


'E2PTS! 
« 
ARRY+ DROP ROT ARRY-+ DROP 
+ CDAB 
«DB-AC-BD-A*CA-B* +3 -ARRY » 


» 


2 - Point d’intersection de deux droites 
Niveau 2 : £a, b, c,] 


Niveau 1 : Las b, c,1 
En sortie : (L, 13. 
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"INTER! 
« 
ARRY+ DROP 4 ROLL ARRY+ DROP 
+DEFABC 
« 
C NEG F NEG 2 -ARRY 
ABDE<C22}-ARRY / 


» 


3 - Droite perpendiculaire à une droite donnée 
passant par un point donné 


Niveau 2 : Er 

Niveau 1 : tas bc) 

En sortie : ta, b, c] 

IDPERP ! 

« 
ARRY-+ DROP 4 ROLL ARRY+ DROP 
+ABCRS 
« B ANEGAS*BR %* - 3 -ARRY » 


» 
4 - Distance d’un point à une droite 


Niveau 2 : HE 
Niveau 1 : tag bi ci] 
En sortie : un nombre 


IDIST' 

« 
ARRY-—+ DROP 4 ROLL ARRY-+ DROP 
+ABCRS 
«AR*BS * C++ A SQ B SQ + / / » 


» 
5 - Bissectrices de deux droites 


Niveau 2 : fa, b, c,] 

Niveau 1 : tas, b, ©] 

En sortie : deux autres droites perpendiculaires entre 
elles. 


1BISS' 
« 
ARRY—+ DROP 4 ROLL ARRY-+ DROP 
+DEFABC 
« 
A SQ B SQ + J 
1Q' STO D SQ E SQ + 
J 'R' STDAR*DQ 
*-BR*EQ*-C 
R*FQ%* - 3 -ARRY 
AR*DQ*+BR* 
EQ*+CR*FQ+* 
+ 3 -ARRY 
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» 
‘Q! 'R' PURGE PURGE 


» 
6 - Intersection d’une droite et d’un cercle 
Deux possibilités : 


Niveau 2 : tdroite] 
Niveau 1 : (cercle] 


ou 


Niveau 3 : tdroite] 
Niveau 2 : tcentre du cercle] 
Niveau 1 : rayon du cercle 


En sortie : les deux points. 


'DRCER'! 
« 
IF DEPTH 3 == 
THEN 
SWAP ARRY+ DROP + R P Q 
« 
11P2*Q2%* 
P SQ Q SQ R SQ - + 
5 -+ARRY 
» 
END 
ARRY+ DROP 6 ROLL ARRY+ DROP 
+ABCDEFGH 
« 
A GSQ*BF SQ * + 
‘A! STO C G SQ * 
2F*H*+DG*F 
* - IB! STDHSQE G 
SQ * + D G*H%* - !C! 
STO B SQ 4 A * C * - 
J ‘D' STO B NEG D 
+ 2A*/DUWPF*H 
+ G / NEG 2 +ARRY 
B NEGD - 2 A * / 
DUP F * H + G / NEG 2 -ARRY 


» 
7 - Droite polaire d’un point par rapport à un cercle 


Mêmes possibilités que ci-dessus sauf que tdroite] est 
remplacé par Ipoint]. 


"POLAI! 
« 
DEVCR 3 ROLLD ARRY+ DROP ROT ARRY+ DROP 
+RABXY 
« 
XA-YB-AX-A*BY-B%*R SQ NEG 


+ + 3 -ARRY 
» 


» 
8 - Pôle d’une droite par rapport à un cercle 
Mêmes possibilités qu’au paragraphe 6. 


"POLE! 

« 
DEVCR 3 ROLLD SWAP 
DUP2 DPERP DUP 5 ROLLD 
INTER SWAP ROT POLAI 
INTER 


» 


9 - Tangentes à un cercle de pente donnée 


Mêmes possibilités qu’au paragraphe 6, sauf que 
tdroite] est remplacé par pente, pas sous forme de 
vecteur. 


"TGTES! 
« 
DEVCR SWAP ARRY+ DROP 
+MRAB 
« 
M SQ 1 + / R * 'R' STO M -1 B M À * - 
R + 3 +ARRY M -1 B M A * - R - 3 -ARRY 
» 


» 


10 - Routine transformant la formule développée du 
cercle en ses centre et rayon. 


A cause du 1:F, il faut qu'avant d'utiliser ce 
programme (à travers les programmes 7, 8 et 9), la 
pile ne contienne pas plus d’objets qu’il n’en faut. 


DEVCR' 
« 
IF DEPTH 2 == 
THEN 
ARRY+ DROP 
+ABCDE 
« 
C2A*/D2B%* / DUP2 2 -+ARRY 
NEG 3 ROLLD SQ SWAP SQ E - + / 
» 


END 


11 - A propos des ellipses 


Niveau 1 : formule développée de l’ellipse 


En sortie : 
Niveau 4 : son centre 


Niveau 3 : ses foyers (coordonnées par rapport au centre) 


Niveau 2 : les deux demi-axes a et b 
Niveau 1 : l’excentricité e 


Comme dans la pratique il n’arrive jamais que les 
coefficients de la réponse soient entiers (oh, c’est si 
rare !), j'ai choisi d'utiliser le programme M-FR de 
notre époustouflant Sébastien Lalande paru dans 
JPC 56. J'ai donc dû le modifier un tout petit peu afin 
qu’il accepte les arrays de dimension 1. Comment se 
fait-il que Sébastien n’ait pas pensé aux pauvres 
étudiants en plein dans les lois de Kirchhoff (c’est de 
la physique, vous vous souvenez ?) qui, ayant enfin 
trouvé les 87 intensités différentes du circuit proposé, 
n’ont pas pu trouver les si fameuses « valeurs 
exactes » demandées trop souvent dans les travaux 
écrits ! Je doute qu’on appelle ça des « travaux 
écrits » en France, mais tant pis ! 


Ce sont des erreurs semblables qui font rater les 
examens au Bac de tant d’étudiants ! C’est ainsi que 
lon gaspille des prix Nobel qui, dans leurs études, 
furent un peu paresseux. Oui, je le reconnais... 


"ELLI' 
« 
ARRY+ DROP 
+ABCDE 
« 
C2A*/D2B%* / DUP2 2 +ARRY 3 
ROLLD SQ B * SWAP SQ À * + E - DUP A / 
‘A! STO B / 'B' STO À B - ABS / 'C' STO 
IFAB > 
THEN C O 2 +ARRY C À ÿ / 
ELSE 0 C 2 +ARRY C B / / 
END 
A / B J 2 -ARRY SWAP 


» 


IMATR! 
« 
DUP 
IF SIZE SIZE 1 == 
THEN ARRY-+ 1 + -ARRY 
ELSE 
END 
+STR "1 SYAP 
Do 
DUP " 1 POS DUP2 1 SWAP SUB 3 
ROLLD 1 + 999 SUB SWAP 
IFERR STR+ 
THEN 
ELSE 
FRAC SWAP +STR 1/1 + SWAP +STR + "M + 
END 
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ROT SWAP + SWAP 
UNTIL 
DUP SIZE 2 == 
END 
+ DUP CLLCD 1 DISP ‘M! STO 


» 


"FRAC! 
« 
1E11 * 1E11+NM 


« 


N ABS M 
DO 
SWAP OVER MOD 
UNTIL 
DUP 1000 / IP NOT 
END 
DROP 
N OVER / IP 
M ROT / IP 


» 


» 


Mathieu Besson 
PPC Lausanne 





LE FACTEUR EST CONSTANT 
(ACTE Ill) 


Une suite est donnée ici à l’article Le facteur est 
constant paru dans JPC 54 et à l’article Le facteur est 
constant (acte II) paru dans JPC 56. 


Dans le premier article, une erreur s’est glissée en 
page 10. Pour que l'addition 4 et la multiplication M se 
déroulent comme indiqué, il aurait fallu que les 
programmes comportent un SWAP avant, 
respectivement, le + et le *. En premier menu (le plus 
facile à afficher par appui de la seule touche 1USER]), 
se trouvaient groupées les quatre opérations 
arithmétiques avec, par analogie avec la plupart des 
autres calculateurs, le facteur constant placé en 
deuxième paramètre de l’opération diadique. Mais 
n'est-il pas plus logique et plus conforme au 
fonctionnement de la pile opérationnelle du HP-41 de 
voir s’afficher au premier menu les opérations où le 
facteur constant est le premier paramètre ? 
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C’est le but que se fixent les lignes suivantes où les 
libellés des menus ont été modifiés ainsi que les codes 
utilisés par l’assembleur. 


DESCRIPTION DES MENUS 
MODE D'EMPLOI 


1) Invalider les modes COMMAND, UNDO et LAST, Pour LAST, 
voir la note au paragraphe Explication des symboles. 
Activer le mode hexadécimal pour les opérations sur 
les entiers binaires (HEX). Entrer ensuite les noms des 
variables de droite à gauche et de bas en haut (du 
menu 4 au menu 1). 


Quatrième menu 


2) Entrer le programme assembleur F (merci encore à 
Sébastien Lalande et à Paul Courbis) : 


« 
M69A20" SWAP + MO9F20" + + z 
« 
HEX "1 1 z SIZE 
FOR X 
"#" z X DUP2 1 + DUP SUB ROT ROT DUP SUB + 
+ STR+ B+R CHR + 2 
STEP 
1Z' STO Z SIZE 2 * 
#50000 SWAP - SYSEVAL LIST+ DROP 'Z' PURGE 
» 
» 


LUF [STO] 


3) Entrer la routine E (utilisée par +, -, *, 
« D ROLLD DEPTH 2 - DROPN » 
E [STO] 


,”, 1#et C). 


4) Entrer la routine D (utilisée par k?, > , m, À et E). 
« DEPTH 1 - » 
D [STO] 


5) Entrer la routine c qui réduit le nombre d’objets 
dans la pile (utilisée par u et 1%) : 

« DEPTH 3 IF > THEN E END DUP2 » 

C [STO] 


6) Entrer la routine 8 (utilisée par +, -, *, /, %t et A) : | 
« DEPTH PICK SWAP » 
B [STO] 


T) Entrer la routine A qui est utilisée par 3 pour 
calculer le pourcentage du total : 
« 

D ROLL DROP 

2D 

FOR x 

[ DUP B %T 1 FIX -STR 

1% "+ SWAP 2 FIX +STR + D ROLLD 


NEXT 

DEPTH 

ROLL +STR DEPTH ROLLD 
KILL SWAP 


(le cas échéant: PRSTC) 


» 


A [STO] 


Troisième menu 


8) Entrer le facteur multiplicateur de devise, £f}. Si 0, 
puis €f} sont frappés, affichage du facteur en service. 
Si le facteur est entré, suivi de la frappe de «f), le 
facteur est entré en F : 

« 


DUP 0 
IF # 
THEN 'F!' STO 
ELSE DROP F CLLCD 3 DISP 1 WAIT KILL 
END 
» 
f [STO] 


9) Entrer #t, calcul de pourcentage du total : 
« 
DEPTH 3 
IF > 
THEN 
PICK DUP CLLCD 2 DISP B %T 
+STR " %" + 3 DISP 1 WAIT KILL 
END E B %T 
» ; 


1%t [STO] 


10) Entrer T, routine permettant l'affichage 
temporaire du montant total du portefeuille : 

« DEPTH PICK CLLCD 2 DISP 1 WAIT KILL » 

T [STO] 


11) Entrer 0, routine qui réarrange la pile : 
« 1 DEPTH 2 - FOR x x ROLL NEXT » 
O [STO] 


12) Entrer =, routine à double but : initialisation de > 
par 0 {=} et corbeille à papier (numéro du niveau de 
pile à supprimer suivi de {m}) : 
« 
1 f DUP 0 
IF # 
THEN 
D ROLL 1 - D ROLLD ROLL NEG DEPTH ROLL + 
DEPTH ROLLD 
ELSE CLEAR 0 O 
END 
» 


m [STO] 


13) Entrer 5, routine d’entrée des valeurs : 


« 
D ROLL 1 + D ROLLD DEPTH DUP PICK - 2 MOD O0 
IF # THEN * END 
F * DUP DEPTH ROLL + DEPTH ROLLD DUP 0 
IF # THEN HALT ELSE DROP END 
A 
» 


Z [STO] 
Deuxième menu 


14) Entrer /K : 
« DUP + z « DEPTH PICK / E z SWAP » » au niveau 2 
121D2020F2B41" au niveau 1 
F [ENTER] [STO] 


15) Entrer “space : 
« DUP + z « 60 B IF FC? THEN SWAP END 

NS E z SMAP KILL » » au niveau 2 
"21D2020E502" au niveau 1 
F [ENTER] [STO] 


16) Entrer -K: 
« DUP + z « DEPTH PICK - E z SWAP » » au niveau 2 
"21D2020D2B4" au niveau 1 
F [ENTER] [STO] 


17) Mettre en place le libellé de 1%, sans encore 
entrer la routine, afin d’épargner de la mémoire. 
1 ‘1% [STO] 


18) Idem pour k : 
1 k [STO] 


19) Entrer y, routine de calcul de marge/marque : 
« 
STD C SWAP +STR "-CP-" + SWAP -STR + 1 FIX 
DEPTH PICK ROT DUP2 %CH SWAP ROT %CH ABS 2 -LIST 
» 


4 [STO] 


Premier menu 


20) Entrer /space : 

« B DUP + z « / E z SMWAP » » au niveau 2 
"21D2020F202" au niveau 1 
F CENTER] [STO] 


21) Entrer *space : 

« B DUP + z « * E z SWAP » » au niveau 2 
121D2020A202" au niveau 1 
F [CENTER] [STO] 


22) Entrer -space : 

« B DUP + z « - E z SWAP » » au niveau 2 
121D2020D202" au niveau 1 
F [ENTER] [STO] 
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23) Entrer +space : 


« B DUP + z « + E z SMWAP » » 
"2120208202" 
F CENTER] [STO] 


au niveau 2 
au niveau 1 


24) Supprimer l’assembleur en tapant 1'F [ST]. 


25) Entrer k. La routine vide la pile et place la 
constante au niveau 1 : 


« + z « CLEAR z » » 


26) Entrer K?. La routine permet la poursuite de 
calculs comme à l’habitude. Elle place au niveau 1 
une copie de la valeur de la constante pour un emploi 
ultérieur. Cette manière de procéder peut s'avérer 
utile dans des cas où la constante est un nombre long 
à entrer et qui intervient à plusieurs reprises dans la 
formule (voir l'exemple de calcul ci-dessous). 

« DEPTH PICK » 

K? [STO] 


Routines provisoirement écartées 


27) Entrer 1%: 
« 
DEPTH 2 
IF >= 
THEN C % DUP2 + ROT +STR +"! + ROT +STR + SWAP 
ELSE E DUP INV .01 - DUP INV SWAP .02 + INV 
END 
» 


"1% [STO] 


28) Entrer k: 
« 
DUP + z 
« 
0 
IF == 
THEN 60 IF FS? THEN DEG ELSE RAD END HALT 
END 
zK 
» 
» 
k [STO] 


Si toutes les routines sont entrées sur une HP-28C, 
version 1CC, MEM indique 282. 


Attendons la venue du programme assembleur pour 
la HP-28$. On pourra alors, avec le programme 15}, 
stocker et étudier un portefeuille de plus de trois 
valeurs. 
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MENUS 
Initiali- 
sations : 
Url 
1)  K2 [K] | + . * / | ‘Foncteurs! 
PTT D | | erithmé- 
2)  L'KT AA <K: /K | tiques 
Markup|----- EX Intimes | 
Fenetre pl 
3)" 2 l'a] OVER PRE 4] 
JP: 0: PTE re fe ù 1 LT "el 
none R RS See ses See res Routines 
CE B C D E F de 
service 


EXPLICATION DES SYMBOLES 


Par analogie avec le calculateur HP-41, le niveau 1 est 
appelé X. 


Note : les opérations arithmétiques déclenchées par 
les touches {+}, €-3, €*3, €/}, C-K3, €3, €/k) placent au 
niveau 2 de la pile la valeur X entrée au niveau 1 
avant l’appui d’une des touches précitées. Le niveau 2 
joue donc en quelque sorte le rôle d’un registre LAST 
avec l'avantage de voir affichée la valeur de LASTY=. 


Libellé 
du menu 


Opération 
effectuée 


Sort réservé à K 





premier menu : 


+ UK+x1t Addition à K de X 

. "K-Xx" Soustraction à K de X 

# UKxx1! Multiplication de K par X 
/ "K/x1 Division de K par X 


+, -, *, / sont dans le même ordre que, de bas en haut, 
les mêmes opérateurs sur le clavier. 

deuxième menu : Sort réservé à X 
X- MX KT Soustraction à X de K 


NS soit "X"K! Elévation de X à pn K 


soit "K7X" Elévation de K à pm X 
X/ "X/K1" Division de X par K 
EXEMPLES 


A titre d’exercice, pour vérifier la bonne marche des 
fonctions arithmétiques, appuyer sur les touches 
indiquées, en examinant l’état de la pile après chaque 
appui de touche (en mode sp) : 


Appuis de touches Résultats dans La pile 


2 {K} 
2 
3 {+} €-3€-} €/3€/} €*) 10 
[NEXT] 2 
3 €} calcul de 2*3 8 
pour calculer 3*2, faire O {k} 
qui forme bascule (toggle) et 
allume Le témoin d'état (2 ). 2 
3 {3 calcul de 3”2 9 
Enlever Le témoin d'état O {k} 
2 
€-K} €/K) 3.5 


Pour les exemples de la plupart des routines, se 
reporter à JPC 54, pages 7 à 9. Tous les exemples 
peuvent trouver solution, en principe, avec la partie 
gauche du calculateur rabattue sur le dos de la partie 
de droite. 


Des modifications étant intervenues sur les routines k 
et > (calculs pour les devises étrangères), voici deux 
exemples supplémentaires : 


1) Routine k : 
Calculer avec deux décimales : 





8.3275*(4-5.2)/[(8.3275-7.46)*0.32] 


8.3275* | --- nn 

4.3*(3.15-2.75)*(1.71-8.3275) 
2 [FIX] 

8.3275 {K} 8.33 
-1.20 
4 CENTER] 5.2 [-] €*} -9.99 
{K?} 7.46 [-] .32 [*] [/] 8.33 
-1.20 
numérateur -36.00 
8.33 
-1.20 
-36.00 
3.15 LENTER] 2.75 [-]1 4.3 [*] 1.72 
1.71 €K?3 [-] [*] dénominateur  -11.38 
[/] fraction 3.16 


L/x1 € dans La pile : 8.33 
LASTX : La racine 1.78 


résultat 14.81 


Pour trouver autrement la solution, entrer : 


2 [FIX] 8.3275 'F' [STO] 
1F*/CF*C4-5.2)/CCF-7.46)*.32)/(4.3*(3.15-2.75) 
*(1.71-F)))' [EVAL] 14.81 


2) Routine 5 : 


Vous achetez 150 actions Air Liquide à 505 F, ce qui 
constitue, vous l'avez calculé, un poste de 75750F, 
puis vous achetez 52 actions Saint-Gobain à 49%6F. 
Vous vous apercevez alors que vous avez commis une 
erreur en entrant le cours de l’action Saint-Gobain 
(490 au lieu de 496). Rectifiez l'erreur. Calculez alors 
le pourcentage du total de chacun des postes et 
affichez le total. 


Vous décidez ensuite d’acheter à New-York 300 
actions Hewlett-Packard à $51%4 (facteur 
multiplicateur 6.275). Quel pourcentage du total 
représenterait le poste de Hewlett-Packard ? 

Vous vous ravisez : pas d’achat de Hewlett-Packard, 
mais achat à Paris de 100 Thomson-CSF à 177 F. 
Votre portefeuille ainsi constitué, vous souhaitez 
connaître, dans l’ordre où vous avez fait vos achats, le 
montant de chaque poste, le total et le pourcentage 
du total pour chacun des postes. Vous voulez modifier 
la présentation et imprimer votre portefeuille dans 
l’ordre où il apparaît sur un relevé bancaire (première 
valeur entrée : en haut). 


En conclusion, le portefeuille comprendra : 








Nombre Cours 

Air liquide 150 505 

Saint-Gobain 52 496 

Thomson-CSF 100 177 

2 [FIX] 

(1) Initialiser 22 0.00 
0 {=} Aie 0.00 
(2) 75750 {2} total 3: 75750.00 
nb. d'articles entrés 2 : 1.00 
montant du poste 1 : 75750.00 
(3) 52,490 {5} (total 4 101230.00) 
nb. d'articles entrés 3 : 2.00 
Air liquide 2 75750.00 
erreur sur Saint-Gobain 1 25480.00 


(4) 1 {um} Après retrait de l'erreur, pile (2). 


(5) 52,496 {3} (total 4 101542.00) 
nb. d'articles entrés 3 : 2.00 

Air liquide 2 : 75750.00 

Saint-Gobain 1 : 25792.00 
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C6) 1 €XT} Air Liquide 25.40% 
2 CT} Saint-Gobain 74.60% 
{T} Total 101542.00 


(7) Entrer facteur US dollar : 
6.275 {F} (routine f) 


display (5) 
inchangé 


(8) Vérification de L'entrée correcte du facteur : 


0 {F} (routine f) 6.28 
(9) 300,51.25 {5} (total 5 : 198020.00) 
(nb. d'articles entrés 4 : 3.00) 
Air Liquide 3 75750.00 
Saint-Gobain 2 25792.00 
Hewlett-Packard 1 : 96478.00 
(10) Pourcentage du total des HP ? 
1 CXT} 48.72% 


(11) Retrait des Hewlett-Packard du dossier. 
1 {a} : retour à L'état (5). 
Entrer à nouveau Le facteur habituel : 
1 €F} (routine f) 


(12) 100,177 €} (total 5 119242.00) 
(nb. d'articles entrés 4 : 3.00) 

Air liquide 3 : 75750.00 

Saint-Gobain 2 25792.00 

Thomson-CSF 1 17700.00 
(13) [<>] [J [CONTI] total 4 : 1119242.00") 
Air Liquide 3 :"63,5 % 75250.00" 
Saint-Gobain 2 :"21.6 % 25792.00" 
Thomson-CSF 1 :114,3 %  17700.00" 


(14) Document bancaire : {0} 
(15) Pour un autre portefeuille, aller en (1). 


Philippe Heïlbronn (233) 





S.O.S. 


Je voudrais vous faire part des difficultés que j'ai 
rencontrées en tapant les programme fLcD+] et 
[-LCD] : lorsque les deux fonctions sont en mémoire, 
je ne peux utiliser la deuxième sinon le HP-28C fait 
un Memory Lost. 


Une ambiguïté dans JPC 55 (page 6), on lit 3487004L8, 


on est tenté de tout mettre mais en fait il faut rentrer 
3487004. 
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Une curiosité enfin 
enclenchées,  [MEM] 
renvoie 1696. 


[-CMD], [-LAST] et [-UND] 
renvoie 1693 et "MEM" [STR-] 


Dang-Trung Khoi-Nguyen 


Est-ce votre programme ASSEMBLEUR ou mon HP-28S 
qui est boggué ? J'ai tapé ASSEMBLEUR, je ’ai utilisé pour 
créer PEEK et POKE, puis utilisé ses propriétés pour 
créer des répertoires invisibles du style ' ou! !. Ca a 
marché un temps, jusqu’au moment où j'ai voulu les 
effacer. Là, un magistral Memory Lost est apparu ! 


Depuis, plus moyen de stocker un seul System object 
sous un nom quelconque : plus d’assembleur possible. 
J’ai essayé de programmer ASSEMBLEUR sur la machine 
d’un de mes amis, et au moment du sto (des deux 
System Objects), le Memory Lost a été immédiat. Ces 
HP haut de gamme seraient-elles si performantes 
dans un espace si réduit qu’une sur deux serait 
défectueuse ? J’attends votre réponse. 


Deuxième question : comment faire l'intégrale de 
1/x ? Pourtant, il n’y a pas de problème pour dériver 
In x ! Sébastien, trouve quelque chose ! 


Bon, je ne saurais trop vous recommander de 
continuer votre quête des limites de vos nombreuses 
HP respectives. Vous êtes tous sensass ! A bientôt 
dans JPC 60 ! 


Mathieu Besson 
PPC Lausanne 


Si jamais, voici mon adresse : 

Niveau 1 : Mathieu Besson 

Niveau 2 : Place de la Navigation 2, 1006 Lausanne, Suisse 
Puis exécuter POKE ! 





HP41 


G. Mangeney 
G. Mangeney 
E. Gengoux 


Formats Microcode 
(Dé)privatisation 
Mille et une manières d’éditer les codes-barres 


18 
18 
19 
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FORMATS MICROCODE 


Je vous propose un programme de conversion entre 
les modes 244 et 442 pour les amateurs de Microcode 
utilisant le module CCD. 


En ce qui concerne le programme Mco, à l'inverse du 
programme de privatisation, il n’y a aucun problème 
de fonctionnement sur aucune des machines. Ne 
connaissant absolument pas le nombre de nos 
membres possédant ce merveilleux module CCD, je 
vais quand même essayer de réécrire ce programme 
en utilisant la programmation synthétique. 


Ligne 7 : PMTH exécute un prompt pour une entrée 
hexadécimale de la forme 244__. Répondre en 
entrant la valeur hexadécimale de l'instruction 
microcode voulue. Par exemple : 3E0 qui correspond à 
l'instruction RTN en mode 244. Le résultat F80 - justifié 
à droite dans l'affichage - correspond bien à cette 
même instruction RTN, mais en mode 442. 


Ligne 34 : PMTH exécute également un prompt pour 
une valeur hexadécimale de la forme 442__. Ici, le 
processus est exactement l'inverse du précédent. En 
reprenant l'instruction RTK, entrer F80, le résultat ne se 
fera pas attendre, 3E0 sera affiché à droite dans la 
lucarne. 


Remarque : le source de ce programme se retrouve 
dans un autre qui a été écrit pour HP-16. 


Salut à tous, 


Gérard Mangeney (383) 
O1*LBL "MCD" 
O2*LBL A 
10 WSIZE CLX "244" PMTH CLA ENTER“ ENTER" 
ENTER 12 WSIZE RDN 3 AND STO 00 - S> S> 


S< S< S< S< RCL 00 + VIEWH RTN 
29*LBL E 

12 MWSIZE CLX "442 PMTH CLA ENTER" 
ENTER" 3 AND STO 00 - R> 
END 


ENTER” 
R> RCL 00 + VIEWH 
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(DE)PRIVATISATION 


Je profite du renouvellement de mon adhésion à PPC, 
pour vous envoyer un programme pour HP-41 
équipée du module CCD (module du Club allemand). 
Il facilite grandement la privatisation et la 
déprivatisation d’un autre programme. 


Mode d’emploi du programme : 
XEQ 1p?1 


Au prompt "NOM PRGM?" entrer le nom du programme 
à privatiser ou à déprivatiser, [R/S1. 


Au deuxième prompt qui est provoqué par la fonction 
PMTK (ProMpT Key), répondre en appuyant sur une 
des trois touches [USER], [SHIFT] Ou [ALPHA] pour 
privatiser le programme en question ; sur la touche 
[SHIFT] pour déprivatiser. 


J’émets quand même quelques réserves sur le 
fonctionnement de ce programme sur des HP-41 
récentes, en fait sur des machines qui ont leur 
numéro de série qui commence par 27... 


Quelques fonctions telles que PHD, X>PC, PC>X, A+B, A+, 
A- risquent de bloquer complètement le clavier avec 
tous les segments des matrices allumés à l'affichage. 
Pour vous sortir de cette situation, une méthode : 
enlever les piles, attendre une à deux secondes que 
l'affichage se vide, donner deux coups sur la touche 
on, remettre les piles en place. Avec un tout petit peu 
de chance, vous retrouverez le catalogue des 
programmes intact. Aucun problème sur les HP-41 
des années 85, 84, 83, 82 etc. 


Gérard Mangeney (383) 


O1*LBL "p?" 
CLA "NOM PRGM?" AON PROMPT ASTO 01 AOFF  PHD 
PPLNG CHS A+B A+ "Y / N um" PMIK X<>Y 

GTO IND Y 


17*LBL 01 
CLA 73 POKEB 
CLD STOP 


" CXXPRIVE**]N AVIEW CLA CLST PSE 


28*LBL 02 
CLA 9 POKEB 
CLD END 


M C++NORM+++]" AVIEW CLA CLST PSE 


- ligne 13 : (F859202F204E200C0€) symbolise les touches 
USER/PRGM/ALPHA et la touche [SHIFT] (0E). 


AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez pas sous quelle forme "l’équipe de 
rédaction" souhaite recevoir votre prose. C’est ici que se trouvent les réponses à 
vos questions. 


Dans la mesure du possible, vous devez nous envoyer vos écrits sur support 
magnétique (carte, cassette ou disquette). Soyez sans crainte, nous vous 
retournerons vos biens après copie. 


Si vous ne pouvez pas utiliser de support magnétique, ou ne pouvez vous rendre 
aux réunions, alors et alors seulement faites le sur papier. 


Que ce soit sur une feuille de papier, ou sur support magnétique, ne dépassez 
pas 50 caractères par ligne. 


Pour nous épargner du travail, insérez dans votre texte les commandes de 
formattage suivantes (et non les commandes du formatteur HP) : 
"?" centre un titre, par exemple : 


"TITRE 
"\'(CHRS$(92)) marque le début et la fin d’un paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de vos idées qui, même si vous en 
doutez, intéressera certains des membres du Club. Surtout si vous vous sentez 
débutant. Les articles pour débutants écrits par des débutants sont ceux qui 
manquent le plus. Fin de paragraphe.\ 


N'oubliez pas de mettre les accents. Utilisez le jeu de caractères Romans. Les 
possesseurs de HP71 utiliseront les redéfinitions de touches ci-dessous, ainsi que 
le fichier CHARLEX listé dans le coin des Lhex. 


Jean-Jacques Dhénin (177) 
DEF KEY :fW!, CHR$(197); té) 
DEF KEY ‘fE', CHR$(193); té) 
DEF KEY 'fR', CHR$S(201); (è) 
DEF KEY ‘fY', CHR$(203); (ù) 
DEF KEY ‘fU', CHR$(195); «ü) 
DEF KEY ‘fl!, CHR$(209); «i) 
DEF KEY 'f0', CHR$(194); (6) 
DEF KEY 'f/!, CHR$S(92); (0 
DEF KEY 'fA', CHR$(192); (à) 
DEF KEY 'fS!, CHR$(200); (à) 
DEF KEY 'fD', CHR$(205); (ë) 
DEF KEY 'fJ', CHR$S(207); (ü) 
DEF KEY 'fK', CHR$S(221); (i) 
DEF KEY ‘f*1, CHR$(124); Ch) 


DEF KEY 'fC!', CHR$(181); (ç) 


PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se réunit une fois par mois, en 
plein coeur de Paris. Amenez votre matériel, votre bonne volonté et vos idées ! 
Plus vous en apporterez, et plus vous en trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, aucun ordre du jour, discussion 
ou autre n'étant imposé. Un membre du bureau est toujours présent. Ainsi, si 
vous désirez remettre votre article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n’hésitez plus un seul instant, venez nous rejoindre 
tous les premiers samedis de chaque mois (sauf en période de vacances 
scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous entendrez des éclats de rire et des 
discussions passionnées vers la salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l'accès en métro, trois possibilités s’offrent à vous : 
- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ab, j'oubliais ! JPC est (souvent) distribué en avant première lors de ces 
réunions. À bon entendeur, salut ! 


Les dates des prochaines réunions sont : 
Samedi 3 décembre 1988 

Samedi 7 janvier 1989 

Samedi 4 février 1989 

Samedi 4 mars 1989 

Samedi 6 mai 1989 

Samedi 3 juin 1989 


Pierre David (37) 


ur 
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NOUS EN AVONS 


La coopérative du Club vous propose : 


- de lecteurs de cartes magnétiques pour HP-71, neufs, dans leur boîte d’origine, avec 5 cartes magnétiques, 
pour 500 F (port compris), 

- des anciens numéros de JPC, au prix de 40 F + 7,40 F de frais d’affranchissement, 

- d’une année complète de numéros de JPC (février à janvier) pour 300 F (offre spéciale) port compris, 

- des LD.S. du module Forth / Assembleur (listing interne commenté par HP) pour 250 F (port compris), 

- de manuels de service du HP-41 au prix de 75 F (port compris), 

- de manuels de service du HP-75 au prix de 75 F (port compris). 


En outre, le module JPC Rom pour HP-71 est disponible. Vous nous adressez votre Eprom CMT (64 Ko), 
et nous la programmons suivant une des options ci-dessous : 

- JPC Rom + Manuel, pour 600 F, 

- JPC Rom + Manuel + vos propres programmes, pour 800 F. 


Si vous souhaitez des renseignements complémentaires, n’hésitez pas à nous contacter. 





VOUS EN VOULEZ 
Nom : 
Prénom : 
No de membre : 
Adresse : 
Commande 

até Prix Unitaire Prix Total 

UE di dar PE ee TR en en OM 
anciens numéros de JPC x 47,40 FF 
année complète de JPC x 300 FF 
1.D.S. du module Forth x 250 FF 
Programmathèque HP-71 (joindre 3 disquettes) x 75 FF 
Manuel de service pour HP-41 x 75 FF 
Manuel de service pour HP-75 XL ANTSAUCUER 
JPC Rom + Manuel x 600 FF 
JPC Rom + Manuel + vos propres programmes x 800 FF 
Actualisation Eprom x 150 FF 
D CA ue ON RE PS SUR EAU ee EU ee A 


Préciser éventuellement Les 
numéros de JPC commandés : 


PPC PARIS 


Association régie par la loi de 1901, enregistrée 
à Paris le 2 décembre 1982 sous le numéro 82/3240 


BULLETIN D’ADHESION 
NEA 07 D AR 6 A A 2 2 PE DT PA EE RE 
Prénom |_|_[_1_1_1_1_1_1_1_1_1_1_1_1_1_1_1 Date de naissance |_|_[/[_1_1/|_|_| 
Adresse, Lise lat Lo tel del dt hate late telle dl 
L'ELETAELLN R ME ERIbet at at bel tabs 
LÉ EEE EEE EE LB au 
LELLRIEILERBhE ta) 
Code Poëtal” [CL NE TLe AU PAT EE EE EE 
LEA Lil Eee 


Profession 
Intérêts 








Matériel HP en votre possession 





Autre matériel informatique 








Comment avez-vous connu PPC Paris ? 





Que recherchez-vous au sein de PPC Paris ? 








La Loi No 78-17 du 6 janvier 1978 relative à l'informatique, aux fichiers et 
aux Libertés, garantit à toute personne justifiant de son identité un droit 
d'accès et de rectification auprès des services ou organismes chargés de mettre 
en oeuvre des traitements informatiques comportant des informations nominatives 
le concernant. 


Je souhaite adhérer au club PPC Paris conformément aux statuts de 
l'Association. Au mieux de ma connaissance, je déclare avoir Le droit de 
fournir tous Les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à l'égard d'autres personnes ou 
organismes) pour publication dans Le Journal de Liaison, sans obligations ni 
responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de la part des 
dirigeants de PPC-Paris. 


Date |_|_[/1_1_1/191_1_| 
Signature, précédée de La mention "Lu et Approuvé!! 


Le montant de La cotisation s'élève à 350.00 F pour un an. 
Etudiants: 300.00 F (justificatif indispensable) 


Paiement à l'ordre de "PPC Paris" par chèque bancaire ou virement postal (CCP 
No 18 823 40 C à Paris). Ne pas utiliser d'Eurochèques. 


Veuillez envoyer toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex 01, France 


- ligne 14 : attend la pression d’une touche. 
- ligne 21 : (FC20582A2A50524956452A2A5D). 
- ligne 32 : (FC205828284E4F524D2B285D). 


MILLE ET UNE MANIERES 
D’EDITER LES CODES BARRE 


Pour compléter mon dernier article sur le sujet, voici 
un point, aussi complet que possible, sur tous les 
logiciels disponibles, qu’ils soient commerciaux ou 
publiés par les Clubs ou feu les Bibliothèques 
Utilisateurs HP, avec des indications sur les coûts et 
performances de chacun d’eux. Bien entendu, il n’y en 
a pas 1001, ni même 36, mais quand-même plus d’une 
dizaine, ce qui n’est déjà pas si mal... Ils tournent sur 
des matériels très variés, qui vont de la 41 de base... 
au VAX avec imprimante Laser, en passant par les 
HP-85, HP-71 et 75, PC et compatibles. Nous avons 
pu les tester, et c’est le fruit de cette expérience que 
nous vous livrons ici. 


La présentation comportera deux volets, l’un, de 
description de ce qui existe (avec classement en 
fonction des matériels utilisés), l’autre, de 
comparaison des performances selon critères de 
commodité, rapidité, coût direct de la page et 
investissement nécessaire. 


LE PANORAMA COMPLET 


Nous irons des plus petites aux plus grosses 
configurations, soit de la simple imprimante 
thermique HP-IL (avec 41 plus ou moins gonflée) aux 
gros matériels (PC, LaserJets..) 


Edition sur HP-82162 


C’est, historiquement, la première solution réellement 
pratique apparue. Les programmes ont été publiés 
soit dans le manuel du Plotter Module, soit dans 
divers numéros du PPC-J (USA) ou de Prisma 
(Allemagne). Très vite, les Clubs ont amélioré les 
programmes afin de pouvoir se passer du module 
Plotter (pour les calculs de combinaisons de bits) et 
d'utiliser plutôt les XFonctions/XMémoires, plus 
répandues. S'y sont rajoutés divers autres 
programmes qui permettent d’éditer les types de 
codes autres que ceux des programmes : clavier 
papier, exécution immédiate, et surtout données 
séquencées ou non, si utiles aux navigateurs, entre 
autres... 


Edition sur tables traçantes 


Le haut de gamme est apparu en premier ; il est 
représenté par le couple Plotter Module + HP-7470 
Option 003 (HP-IL) ou sa variante HP-IB, et est 
complètement décrit dans le volumineux manuel du 
module. Il a été nettement amélioré par Robert 
Schwartz (Cf. bibliographie). 


Un bas de gamme est apparu avec les divers 
miniplotters (mini-tables traçantes des marques Tandy 
(CGP-115), Canon (X-710, autonome) et Sharp, 
interfacés à l’aide du convertisseur HP-82166 par 
plusieurs constructeurs (Sicape, puis SCIP, Jacques 
Vaucelle), ou par interface plus performant (Kristal 
S.A.). C’est, disons-le dès maintenant, un bas de 
gamme très performant, grâce aux deux logiciels 
disponibles : 


dans 
traiter du 


Jean-Claude Bornes 
même de 


- celui écrit par 
Micro-Revue (il permet 
Microcode !), 


- et celui diffusé par la Règle à Calcul, très rapide et 
bien documenté. 


Ils nécessitent tous deux le module XFonctions (le 
programme à traiter est en effet chargé en première 
position dans lXMémoires, manière de procéder que 
l’on retrouvera souvent dans les autres logiciels), mais 
ne font pas appel à d’autres modules (HP-IL 
Development ou Extended 10, Plotter,...). 


Edition sur ThinkJet 


Plusieurs approches sont possibles, selon qu’on utilise 
une 41 plus ou moins gonflée, le module spécialisé 
américain Skwid BarCode (mais là, la 41 de base, et 
même pas CV, suffira !) ou l’un des deux grands 
frères HP-71 ou HP-75. 


Plusieurs programmes ont été publiés dans 
PPC-Journal et Prisma, faisant appel au seul module 
XFonctions, puis à l’un des modules CCD-Rom, 
HP-IL Development et/ou Plotter pour accélérer les 
calculs des bit-images et la construction du buffer 
d'impression. L’un d’eux apparaît page 7.41 du 
manuel CCD-Rom (Wilfried Maschke). Ils ne 
peuvent traiter, à une exception près, que des codes 
de programmes (un logiciel, paru dans CHHU 
V2N2P11, permet d'imprimer tous les autres types de 
codes). 


Le module spécialisé Skwid Barcode, de Synthetics, 
diffusé par EduCALC, #41-834, prix aux alentours de 
$200.00 pour la version de base, permet de piloter, 
non seulement la ThinkJet, mais aussi la LaserJet 
(voir plus loin). Il est très rapide, traite tous les types 
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de codes, et son manuel est remarquable. En plus, il 
ne nécessite qu’une 41 de base, sans aucun module. 
Le programme à traiter est en Ram et il n’y a besoin 
que de quelques registres. 


Enfin, les programmes sur HP-71 (JPC 56 page 26) et 
sur HP-75 (CHHU V3N1P15, de Michael Markov) 
limités au traitement des codes de programmes, lisent 
directement sur disque ou cassette le fichier à traiter 
et l’impriment très rapidement (ils peuvent également 
le faire sur HP-82905B). 


Edition sur LaserJet 


Deux approches sont possibles actuellement : soit 
utiliser l’une des deux versions du module SkwidBC 
(selon que vous disposez d’une LaserJet de types 
ancien, ou des nouvelles LaserJet+ ou Série IT), soit 
utiliser un IBM-PC ou compatible pour piloter votre 
imprimante (voir plus bas). 


Le module SkwidBC permet d'imprimer une page de 
code en 7 à 8 minutes (anciennes LaserJet), temps qui 
descend à 25-30 secondes avec les nouvelles 
imprimantes. Tout ça avec une HP-41C, arrêtez ! Ils 
sont too much ! 


Edition avec 41 et autres imprimantes 


Nous les citons ici davantage pour être complets que 
pour leur utilité actuelle. En effet, il s’agit le plus 
souvent d’essais qui ont été réalisés avant l'apparition 
de la ThinkJet, essentiellement sur imprimantes 
HP-82905B et Epson MX-80. La qualité d'impression 
obtenue est parfaite, certes, mais l’impression d’un 
programme moyen prend facilement la nuit complète 
et, même en recourant aux modules Plotter et 
XFonctions pour accélérer les calculs de chaînes de 
bits, on en reste à des temps qui semblent fort longs 
en comparaison des solutions actuelles... 


Un cas à part, le HP-85 


Le manuel intitulé Creating Your Own Barcode 
(HP82153-90019), ouvrage de référence en la matière, 
comporte un logiciel volumineux pour HP-85 + 
16 Ko Ram + 1/0 ou Printer/Plotter Rom + RS-232 
ou HP-IB, et l'imprimante HP-82905B avec l'option 
correspondant à celle des deux interfaces utilisées, 
environ 1500 lignes. Disponible auprès de la Series 
80 Users’ Library de Corvallis. 


Ce logiciel a inspiré les premières tentatives de 
création de tels logiciels. Il résultait lui-même d’une 
réécriture, après simplification (sic) du logiciel 
initialement développé sur HP-9845A. À moins que 
vous disposiez de l'interface HP-IL pour cet 
ordinateur, il vous faudra rentrer, un par un, les 
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octets du programme HP-41 au clavier, ou au moyen 
de cartes ou bandes perforées... 


Très vite, comme on l’imagine aisément, les auteurs 
des divers logiciels d’édition ont abandonné l’idée 
d'adapter ce logiciel à d’autres machines, pour 
développer leurs propres approches, avec pour 
résultat des programmes beaucoup plus compacts et 
agréables à utiliser. 


Edition sur PC et compatibles 


Voici un peu moins d’un an est apparu au catalogue 
d’EduCALC un logiciel, comprenant deux modules 
(le premier pour les programmes, le second pour les 
autres types de codes barre), permettant de piloter, 
soit les classiques imprimantes mosaïque compatibles 
Epson, soit les diverses LaserJet, et de lire les 
données dans un fichier ASCII classique. Rappelons 
que, depuis l’apparition de la carte d’interface 
HP-82973A, et surtout des logiciels de liaison 
HP-82477A ou, nettement mieux, LINK (Southern 
Software) ou ELI-IL (Eclipse Logic), il est très facile 
de transférer des programmes ou données de 41 vers 
PC, et qu’avec l'utilitaire PILCP de CMT, on peut 
même lire directement des cassettes ou des disquettes 
3/2 pouces (HP-9114) depuis le PC. 


Le produit s'appelle HP-41 Barcode Generator for the 
IBM-PC, de Tony Malburg ; chacun de ses deux 
modules vaut moins de $50, et leurs manuels sont 
assez complets pour que l’on puisse se dispenser de 
lire autre chose sur les codes barre. (EduCALC, 
#S-395A et S-395B, chacun $44.95). 


Le tour d’horizon est à présent terminé. Le pilote 
d’essais vous propose d’enfiler une combinaison 
anti-g (pour les plus rapides des logiciels, ça 
décoiffe...) et de passer maintenant à l'étude des 
performances. 


COMPARAISON DES PERFORMANCES 


Après la revue de ce qui existe, reste à tenter de 
répondre à cette question : que choisir, et en fonction 
de quels critères pratiques ? 


De notre propre expérience d’utilisateur régulier de 
tous ces logiciels, il nous semble que trois critères 
sont à considérer la rapidité d’exécution, la 
commodité et le coût. Précisons : 


- la rapidité d’exécution peut se mesurer au temps mis 
pour imprimer une rangée complète de codes barre 
(soit 12 octets) d’un programme de taille normale 
(une centaine de lignes) : le panorama est en effet 
extrêmement contrasté, un même programme 


pouvant être traité dans un délai qui va de quelques 
minutes à... une nuit complète, selon configuration ! 


- la commodité d'emploi tient à plusieurs choses : 
possibilité pour le logiciel de travailler sans 
surveillance, bien sûr, mais aussi complexité de la 
configuration requise, manipulations de supports 
papier (particulièrement péjorante dans deux cas : 
table traçante HP-7470 et imprimante thermique) et 
de stylos, cartouches d’impression, cet aspect étant 
complété par une question subsidiaire : le logiciel 
peut-il réimprimer une rangée de code mal tracée, 
isolément (i.e. sans devoir tout refaire) ? 


-le coût s'entend, tout au moins à la marge (ie. 
l'utilisateur effectuant son calcul de coût en fonction 
du matériel qu'il possède déjà), du coût 
d'investissement (achat de modules, traceur, logiciel... 
migration sur une machine plus puissante, mais 
sachant lire les supports magnétiques de la 41 
(cassettes ou disquettes) et coût des consommables et 
de leur manipulation (stylos de table traçante, papier 
thermique, etc...) qui constituent respectivement les 
coûts fixe et variable de la page finale. 


En ce qui concerne les temps d’édition, les produits se 
répartissent en trois groupes bien distincts : 


- le premier groupe, très rapide. Ordre de grandeur : 
une rangée de code en moins d’une minute. Il 
comprend les deux logiciels complémentaires sur 
IBM-PC (Tony Malburg), le module Skwid Barcode 
qui est de très loin la solution la plus performante sur 
41. (Et vive le microcode !) ainsi que les deux 
programmes sur HP-75 et HP-71, avec un léger 
avantage de rapidité au HP-75. 


- le second groupe, intermédiaire. De 1 à 3 minutes 
par rangée. Il comprend deux programmes utilisant 
l'imprimante thermique (procédé par ailleurs très 
coûteux et peu commode), les divers programmes sur 
table traçante HP-7470, ainsi que le logiciel sur 
miniplotter diffusé par la Règle à Calcul. 


-le dernier groupe est le plus lent : plus de 3 à 5 
minutes par rangée, avec de très gros écarts de temps 
selon que le logiciel imprime sur une ThinkJet ou une 
autre imprimante (82905 ou Epson), d’une part, et 
utilise des modules (autres que le X-Fonctions, que 
tous utilisent peu ou prou, s'entend...) tels que 
CCD-Rom, Plotter, HP-IL Development, Paname ou 
Extended 1/0, pour accélérer les calculs de 
configurations de bits. Cela va de 3 minutes et demie 
par rangée (PBCCD) à des temps rhédibitoirement 
longs sur HP-82905 ou Epson. 


Il apparaît clairement que le recours, soit à un 
module spécialisé (Skwid BC), soit à un ordinateur 
plus puissant que la 41, donne les résultats les plus 
rapides, commodes et économiques (le coût direct de 
la feuille imprimée est bien alors le plus bas, même 
en tenant compte de la durée de vie réduite d’une 
cartouche de ThinkJet pour ce type d’usage). Le code 
imprimé est de toute première qualité, et s’obtient 
avec le strict minimum de manipulations. Ajoutons 
que le module spécialisé Skwid BC donne accès à tous 
les autres types de codes et qu’il est actuellement l’un 
des seuls à savoir piloter une LaserJet (ceci si vous 
envisagez leur reproduction dans un ouvrage devant 
être imprimé). Ce seront donc nos meilleurs choix. 


Parmi les autres solutions, signalons la qualité très 
compétitive des codes obtenus avec les miniplotters, 
pour les possesseurs de ces appareils peu coûteux 
(avec une préférence pour le logiciel diffusé par la 
Règle à (Calcul, très souple d'emploi et bien 
documenté) et, pour les possesseurs du remarquable 
CCD Module, la possibilité d’éditer leurs 
programmes directement, bien que fort lentement. Et 
si vous n’avez pas ces matériels, il vous reste deux 
choix encore acceptables (avec une bonne qualité 
graphiques, mais lents...), lun sur ThinkJet, l’autre 
sur HP-82162. Ce dernier, plus rapide et n’exigeant 
aucun module supplémentaire, est vorace en papier 
thermique. 


Les problèmes particuliers, comme l'édition de codes 
du type «exécution immédiate» ou de données 
constantes à rentrer le moment venu à l’aide du 
crayon optique, procédé courant pour les 
programmes de navigation, pourront être résolus, au 
choix, soit directement par l’une des fonctions du 
module SkwidBC, soit par l’emploi de l’un des deux 
programmes permettant d'éditer ces types de code 
sur HP-82162 ou HP-2225, en complément de 
méthodes plus performantes, mais réservées aux seuls 
programmes, ou bien entendu sur IBM-PC ou 
HP-7470. 


Une autre conclusion est que l’imprimante ThinkJet, 
périphérique qu’on pourrait à priori penser 
inutilement puissant et fort mal utilisable avec la 41, 
trouve avec l'édition des codes barre son plus beau 
terrain d'emploi. Et l’un ou l’autre des deux modules 
Paname ou CCD Module, avec leurs très puissantes 
fonctions de formattage des résultats, vous 
permettront de tirer le maximum de ce!te imprimante 
très puissante. 


Bibliographie succincte 


- Creating Your Own Barcode, HP82153-90019 
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Imprimante thermique HP-82162 

- 82162 Barcode, at last ! PPC Special Issue’83 
(Wilfried Maschke), 

- Plotter Module, manuel français, page 172 et 
suivantes. 


Table traçante HP-7470 

- Plotter Module, manuel français, 

- Articles de Robert Schwartz in Micro-Revue N6P15, 
NOP27, 

- PPCcj V13N7P23. 


Mini-tables traçantes 

- Articles de Jean-Claude Bornes in Micro-Revue 
N3P64, 

- Notice programmes  ECRCBP/TCBP/EFME 
(Laurent Barme & RAC). 


ThinkJet 

- Article de Daniel Renniger in CHHU V2N2P11 
(tous types), 

- Articles CHHU V2N3P23 et PPCJ V12N10P29 
(CCD Rom), 

- Manuel CCD Rom (édition américaine) pages 7.41 
et suivantes, 

- Article de Carpenter in PPCJ V2N3P17 (tous types), 
- Article de Gerhard Kruse in CHHU V2N5P11 (tous 


types). 


HP-82905 et autres 

- Article de Michael Markov in PPCCJ VINSP22, 
complété par 

- More 82905 BC de C.A. Erickson in PPCcj 
V1IN2P25, 

- HP-41 BC on MX-80 in PPCJ V1ONS8P17. 


HP-75 et HP-71 

- Printing HP-41 BC with the HP-75 par Michael 
Markov in CHHU V3N1P25, 

- Codes barres HP-41 sur HP-71 par Michael Markov 
et Eric Gengoux in JPC 56 page 26. 


Eric Gengoux (108) 
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NOUVEAUTES POUR LE HP-71 


Malgré l’arrêt du HP-71 (et bientôt de la boucle 
HP-IL) par Hewlett-Packard, on continue de par le 
monde à lutiliser et à développer des logiciels 
majeurs. 


L’assembleur hollandais 


Nos deux amis hollandais Jan Buitenhuis et Fred Van 
der Vindt ont à présent un assembleur HP-71 
totalement en assembleur, donc extrêmement rapide. 
Ils travaillent activement à la suite de leur projet 
DEVROM, un module contenant un assembleur, un 
éditeur de liens et un émulateur. 


C’est une superbe réalisation. Souhaitons leur une 
bonne continuation. 


L'éditeur français 


De notre coté, nous venons de terminer un éditeur de 
textes entièrement en assembleur. Il est très rapide, 
spécialement pour les gros fichiers. Vous ne pouvez 
pas imaginer quel plaisir il y a passer instantanément 
de la première à la dernière ligne du fichier. Sa 
principale caractéristique (hormis sa rapidité) est sa 
totale compatibilité avec l’éditeur lent EDTEXT d’HP. Il 
dispose de nombreuses extensions, ainsi qu’un mode 
compatible Unix. 


Cet éditeur vient avec quelques fonctions permettant 
d'exploiter les caractères spéciaux utilisés dans les 
recherches ou remplacements. Une petite partie de 
ces fonctions reste à écrire. 


Nous espérons publier ce Lex dans le prochain JPC, 
et ainsi vous faire tous profiter de cet éditeur. Je vous 
assure, c’est vraiment très, très rapide ! 


Un dernier point : à l’heure où j'écris ces lignes, il 
occupe 9186 octets dans la mémoire de mon HP-71. 
Avec lui, JPC Rom atteindra et dépassera les 36 Ko. 
Les Eproms de 32Ko sont donc dorénavant trop 
petites. 


Allez, faites de beaux rêves... 


Pierre David (37) 
Janick Taïllandier (246) 
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PILE DE COMMANDES 


Dans JPC 25 (juin 1985), Michel Martinet nous 
présentait un Lex contenant le mot-clef STACK, 
permettant d'étendre la pile de commandes à plus de 
5 niveaux. Quel progrès ! Comment peut-on n’avoir 
que 5 niveaux de pile de commandes sur un HP-71 ? 
Je me le demande encore... 


Malheureusement, ce Lex avait la désagréable 
habitude de provoquer un Memory Lost lorsqu'il était 
exécuté (via le programme ML) juste après un INIT:3. 
Cela était particulièrement visible lorsque survenait 
une reconfiguration de la machine quelques cycles 
plus tard. 


Henri Kudelski, de PPC Lausanne, a fait une nouvelle 
version de ce Lex, supprimant cette fâcheuse 
tendance à faire Memory Lost. Grâce lui soit rendue ! 
Les heureux possesseurs de JPC Rom l'ont depuis 
longtemps dans leur machine. Dorénavant, tout le 
monde peut en profiter. 


Voici donc le Lex... A vos claviers ! 


LEX "STACKLEX'! 


=ARGERR EQU #0BF19 
=EXPEXC EQU #0F186 
=FIXDC EQU #05493 
=FIXP  EQU #O2A6E 
=IOBFEN EQU #2F576 
=MAXCMD EQU #2F976 
=NXTSTM EQU #08A48 
=RANGE  EQU #1B07C 
=RFNBFR EQU #2F57B 
=RNDAHX EQU #136CB 
ID #E1 
MSG 0 
POLL O0 
ENTRY STACKe 
CHAR  #D 
KEY *STACK! 
TOKEN 27 
ENDTXT 


STACKp GOVLNG FIXP 
STACKd GOVLNG FIXDC 


REL(5) STACKd 
REL(5) STACKp 
STACKe GOSBVL =EXPEXC 
GOSBVL =RNDAHX 
GOC ARGOK 
argerr GOVLNG =ARGERR 


ARGOK  LCHEX 


CMD1 


CMD2 


GOSBVL 
GOC 
A=A-1 
DO=(5) 
DATO=A 
DO=(5) 
C=DATO 
DO=C 
LCHEX 
DATO=C 
DO=D0+ 
A=A-1 
GONC 
ADOEX 
D0=(5) 
LC(2) 
DATO=A 
DO=D0+ 
C=C-1 
GONC 
GOVLNG 


END 


1001 
=RANGE 
argerr 
A 
=MAXCMD 
1 
=IOBFEN 
A 


003000 
6 

6 

A 

CMD1 


=RFNBFR 
5 
A 
5 
B 


CMD2 
=NXTSTM 
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FORMATTONS FORMATTONS 
(ACTE CCLVI BIS) 


Vous vous souvenez certainement des nombreux 
articles parus dans les très anciens JPC à propos de 
notre formatteur de textes HP-71 Si si, 
rappelez-vous ! C’est même grâce à lui qu’a été mise 
en page une trentaine de JPC ! 


II faut dire que ce formatteur avait subi quelques 
avatars. La première version était belle, bien 
programmée, lisible, etc. La deuxième version utilisait 
des mots-clefs en assembleur rédigés pour la 
circonstance, mais la partie Basic avait été 
reprogrammée, et était devenue un véritable plat de 
spaghettis. Et même le système expert de Xavier Bille 
ne pouvait rien y faire... 


Heureusement, le ciel redevient bleu grâce à la 
nouvelle version ! Celle-ci est, comme il se doit, bien 
meilleure que la précédente. A l’origine, c'était en fait 
une démonstration du Lex STRUC2 de programmation 
structurée et de lordre PBLIST de listage avec 
indentation automatique. Mais le résultat est 
tellement beau que je ne peux m'empêcher de vous le 
présenter. 


Qu'est ce qu’un formatteur de textes ? 


Que fait ce programme ? Prenons un exemple. 
Supposons que vous vouliez écrire une belle lettre, un 
beau rapport ou encore un beau JPC. Pour ce faire, 
vous devez procéder en plusieurs étapes. 


- Tout d’abord, vous devez prendre votre éditeur de 
textes favori (le nouvel éditeur en assembleur, par 
exemple) et saisir votre texte avec certaines 
conventions que nous détaillerons plus loin. 


- Une fois votre texte brut rentré dans un fichier de 
type TEXT, vous utilisez programme FORMAT. Il 
transforme votre texte, aligne les marges gauche et 
droite et centre vos titres. 


- Vous pouvez enfin imprimer votre texte avec le 
mot-clef PRINT par exemple. 


Pour résumer, FORMAT prend un texte brut contenant 
certains codes spéciaux, et justifie le texte. 
Les codes de contrôle 


Vous connaissez déjà bien les codes de contrôle du 
formatteur JPC. Ils sont décrits chaque mois dans 
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l'article 4h / Vous écrivez ! (voir les pages jaunes). 
Nous allons les reprendre et les expliciter. 


Ces codes sont les deux caractères \ et *. \ indique un 
paragraphe à aligner, * indique une ligne à centrer. 
Ainsi, par exemple, la ligne : 


“Déclaration de sous-programme 
Apparaîtra comme suit : 

Déclaration de sous-programme 
Le * a servi à centrer le titre. 


Le caractère \, nous l’avons dit, délimite le début et la 
fin des paragraphes. Par exemple : 


\La spécification d'une procédure spécifie son 
identificateur et ses paramètres formels, s'il y 
en a. La spécification d'une fonction spécifie 
son désignateur, ses paramètres formels, s'il y en 
a, et Le sous-type du résultat de La fonction. Un 
désignateur peut être un symbole d'opérateur s'il 
est utilisé comme opérateur surchargé du langage. 
La suite de caractères représentée par un symbole 
d'opérateur doit être un opérateur appartenant à 
l'une des six classes d'opérateurs qui peuvent 
être surchargées.\ 


Notez que le premier caractère \ est mis comme 
premier caractère du paragraphe, et que le deuxième 
est placé comme dernier. Votre paragraphe, une fois 
traité, aura l'allure suivante : 


La spécification d'une procédure spécifie son 
identificateur et ses paramètres formels, s'il y en 
a. La spécification d'une fonction spécifie son 
désignateur, ses paramètres formels, s'il y en a, et 
Le sous-type du résultat de La fonction. Un 
désignateur peut être un symbole d'opérateur s'il 
est utilisé comme opérateur surchargé du langage. La 
suite de caractères représentée par un symbole 
d'opérateur doit être un opérateur appartenant à 
l'une des six classes d'opérateurs qui peuvent être 
surchargées. 


C’est tout de même plus beau ainsi, non ? 


Une erreur relativement fréquente est de laisser des 
caractères avant le * ou le premier \, ou après le 
dernier \. Dans ce cas, votre texte ne ressemblera pas 
à ce que vous attendez ! 


Note : les textes sont extraits du Manuel de Référence 
du Langage de Programmation ADA, traduction 
française chez Eyrolles. Rassurez vous, les 226 autres 
pages sont aussi incompréhensibles. 


Mode d’emploi du programme 


Rien de plus simple. Faites RUN FORMAT et répondez 
aux deux questions : vous devez d’abord taper le nom 
du fichier à formatter, puis la largeur de formattage 
(en nombre de caractères). Par défaut, celle-ci est 
fixée à 70. 


De nouveaux horizons apparaissent maintenant à vos 
yeux émerveillés. Les voies menant à la connaissance 
absolue du formattage vous sont ouvertes. Sachez en 
profiter. 


A bientôt, 


Pierre David (37) 


CATALOGUE RAPIDE 


Voici un petit utilitaire qui, autrefois, me rendait très 
souvent service. Il s’agit d’un programme pour lire le 
répertoire d’une disquette ou cassette et placer tous 
les noms des fichiers dans un fichier TEXT en 
mémoire centrale. 


Des programmes similaires font souvent appel à la 
fonction standard caT$. C’est une erreur ! A chaque 
appel, cAT$ est obligée de parcourir le répertoire 
depuis le début. Que ce soit sur une cassette ou une 
disquette, les batteries ne tiennent généralement pas 
le choc à ce rythme. D’autre part, on assiste à une 
usure prématurée du support. 


Au contraire, le programme  DIRFILE lit 
séquentiellement le répertoire avec des ordres HP-IL 
de bas niveau. Cela est beaucoup plus économe, au 
prix d’une programmation une peu plus délicate. 


Venons-en à l’utilisation. Vous devez spécifier le 
numéro de votre unité (par exemple, 3 pour :TAPE(3)), 
puis le nom du fichier qui contiendra la liste des 
noms. 


Une fois votre fichier rempli, vous en faites ce que 
vous voulez. Par exemple, si vous avez placé la liste 
des noms dans le fichier TOTO et que vous souhaitez 
sécuriser tous les fichiers d’une disquette, il suffit 
d’exécuter le petit programme suivant : 


10 DIM FS$, 1 

20 ASSIGN #1 TO TOTO 

30 FOR 1=1 TO FILESZR("TOTO") 
40 READ #1;F$ 

50 SECURE F$&":TAPE(3)" 

60 NEXT 1 


Et voila ! Aussi simple que cela. Les idées sont 
nombreuses. Vous pouvez dorénavant vous épargner 
les tâches manuelles et fastidieuses. 


Note pour les malchanceux qui n’ont pas encore 
JPC Rom ou STRUC2 et FINPUT : vous pouvez 
remplacer le FINPUT des lignes 1020 et 1040 par un 
INPUT en modifiant les paramètres, et vous pouvez 
remplacer les lignes 2100 et 2140 par un label et un 
test suivi d’un branchement. Mais quel dommage ! 


Une dernière chose : je vous ai dit que, autrefois, cet 
utilitaire me rendait très souvent service. J'ai 
aujourd’hui JPC Rom et les superbes mots-clefs DDIR 
et PDIR de Jean-Jacques Dhénin, qui rendent obsolète 
ce petit programme. 


A bientôt, 


Pierre David (37) 
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Programme "FORMAT" (formatteur de Textes, nécessite JPC Rom ou STRUC2, FINPUT et FORMALEX) 


- Variables utilisées 
F$ = nom du fichier 
N$ = largeur de formattage (telle que rentrée par l'utilisateur 
N Largeur de formattage (telle qu'utilisée par Le programme) 
A = 0 si La touche [ATTN] est pressée pendant FINPUT 
10 DIM F$,N$S,N,A 
20 FINPUT F$,"Fichier: ",A 
- sortie si La touche [ATTN] a été pressée 
30 IF NOT A THEN END 
40 FINPUT N$,"Width: 70","7P3UP",A 
50 IF NOT A THEN END 
- pour simplifier Les calculs 
60 N=VAL(NS) 
70 CALL FORMAT(FS$,N) 
80 BEEP 
90 END 


1000 SUB FORMAT(F$,N) 
. A$ = ligne lue dans Le fichier 
B$ = un paragraphe 
G$ = fichier temporaire 
P = indetation de paragraphe 
Q = endroit où La césure doit intervenir 
1010 DIM A$[256] ,B$[256+N] ,G$[3],P,Q 
le fichier temporaire 
1020 G$="TMP" 
1030 SFLAG -1 @ PURGE G$ à CFLAG -1 
1040 CREATE TEXT G$ 
1050 ASSIGN #1 TO F$ à ASSIGN #2 TO G$ 
- répéter jusqu'à La fin du fichier 


1060 LOOP 
1070 ON ERROR GOTO 'END' à READ #1; A$ 
1080 OFF ERROR 


. suivant le premier caractère 
"A: centrer La Ligne 
"M : formatter Le paragraphe jusqu'au prochain "\f 
autre : copier La ligne telle que 


1090 SELECT A$[1,1] 
1100 CASE M°n 
1110 PRINT #2; CENTER$(AS [2] ,N) 
- formattage de paragraphe 
1120 CASE "A" 
- initialisations 
1130 P=0 à CFLAG 5 à B$=1"1" 
. sauter Le premier "\" 
1140 AS=A$ [2] 
- si "M\°#, indenter Le paragraphe 
1150 IF A$[1,1]="%" THEN A$=AS$[2] à P=CEIL(N/10) 
° répéter jusqu'à La fin du paragraphe 
1160 REPEAT 
1170 A$=REDUCES(AS$) 
- se rappeler si on a atteint La fin du paragraphe 
1180 IF AS[ILEN(AS)]="\" THEN SFLAG 5 @ AS[LENÇA$)]J="" 
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1190 


1200 


1210 


1220 


1230 
1240 
1250 


1260 
1270 
1280 
1290 
1300 


1310 
1320 
1330 
1340 
1350 


1360 
1370 


accumuler Le paragraphe dans B$ 
B$=REDUCES$(B$&" "&AS) 
tant qu'on trouve un endroit où césurer dans Le paragraphe 
WHILE LEN(B$)>N-P 
trouver un endroit où césurer 
Q=CESURE(BS$,N-P) 
couper, indenter et justifier 
PRINT #2; SPACES(P)&FORMAT$(B$[1,Q] ,N-P) 
indent = 0 
P=0 
oublier la partie de ligne déjà formattée 
B$(1,Q+1]="" 
END WHILE 
à La fin du paragraphe ? 
IF FLAG(5) THEN 
oui : sauver La dernière ligne 
PRINT #2; SPACES$(P)&B$ 
ELSE 
non : Lire une autre ligne 
READ #1;A$ 
END IF 
jusqu'à La fin du paragraphe 
UNTIL FLAG(5) 
copier bêtement... 
CASE ELSE 
PRINT #2;A$ 
END SELECT 
END LOOP 


"END': PURGE F$ 
RENAME G$ TO F$ 


1380 END SUB 


Ve he he he che he he he he he ee ee eh he ee ee ee ee hr ee ee 


Programme "DIRFILE" (Catalogue Rapide, nécessite JPC Rom ou FINPUT et STRUC2) 


- Pour préserver l'environnement et ne pas détruire Les variables, appel par CALL 
10 CALL DIRFILE 


1000 SUB DIRFILE 


1010 
1020 


1030 


1040 
1050 


1060 


DIM F$,D$ 

FINPUT D$,"DIR :TAPE(1)","10PUP",A 

Sortie si La touche [ATTN] a été pressée. 

IF NOT A THEN END 

Demande Le nom du fichier résultat 

FINPUT F$,"Fichier: ",A 

IF NOT A THEN END 

C'est FDIR qui fait tout Le travail. Vos programmes peuvent appeler directement FDIR. 
CALL FDIR(":TAPE("&D$&")",F$) 


1070 END SUB 
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2000 SUB FDIR(D$,F$) 
. D$ = nom du disque (:TAPE(1) par exemple) 
F$ = nom du fichier à créer 
2010 DIM N$[10],L$[22] ,E$ [2] ,P$[2] 


: N$ = nom du fichier courant sur Le disque 
L$ = reste de l'entrée dans Le répertoire du disque 
E$ = identification de La fin du répertoire (E pour END) 
P$ = identification des fichiers purgés 


Initialisation des identificateurs de fin de répertoire et de fichier purgé 


2020 E$=CHR$(255)8CHR$(255) à P$=CHR$S(O)&CHRS(O) 
- Effacement éventuel (et silencieux) du fichier résultat 
2030 F=FLAG(-1,1) @ PURGE F$ à F=FLAG(-1,F) 
. Et création pour repartir sur un fichier vide 
2040 CREATE TEXT F$ 
2050 ASSIGN #1 TO F$ 


è Recherche du numéro du disque sur La boucle. L'accès par numéro de périphérique 


va nettement plus vite (et économise Les batteries...) 
2060 D=DEVADDR(D$) 
< Le disque demandé existe-t-il ? 
2070 IF D<O THEN END 
- Ordonne au disque de se positionner au début du répertoire 
2080 SEND UNL UNT LISTEN D MTA DDL 4 DATA 0,2 DDL 3 DATA O TALK D DDT 2 MLA 


. Le flag -23 a comme effet, Lors du ENTER, d'arrêter La transmission lorsque La variable 


destination est pleine. Utile pour ne traiter qu'une entrée à La fois. 
2090 F=FLAG(-23,1) 
2100 REPEAT 
S Lit Le nom du fichier 


2110 ENTER :D ;N$ 

. puis Le reste (type, taille, adresse sur Le disque, etc.) 
2120 ENTER :D ;L$ 

. est-ce un fichier normal ? Oui : alors stocker son nom 
2130 IF L$[1,21#ES$ AND L$[1,2]#P$ THEN PRINT #1; REDUCES(N$) 


: Procède jusqu'à La marque de fin de répertoire 
2140 UNTIL L$[1,2]=E$ 


. Termine La transmission avec Le disque (et rembobine La cassette s'il y a Lieu) 


2150 SEND MTA LISTEN D DDL 7 UNT UNL 
Remet Le flag -23 dans l'état ou on aurait aimé Le trouver en entrant... 
2160 F=FLAG(-23,F) 
, On remet tout en ordre, 
2170 ASSIGN #1 TO * 
° Et on sort bien proprement... 
2180 END SUB 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 


Rappelons ce qu’est un fichier Lex : c’est un programme pour le HP-71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des programmes 


Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer vous-même en 
assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer et de recopier 
les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles fonctions sont accessibles, 
après avoir éteint et rallumé votre HP-71. 

Si l'erreur "Erreur de somme" apparaît, vérifiez la ligne que vous avez introduite. 

Vous trouverez donc, outre le Lex CHARLEX nécessaire à la rédaction de vos articles (voir l’article 


Ah ! Vous écrivez !), le Lex STACKLEX de Henri Kudelski ainsi que les Lex STRUC2 et FORMALEX 
nécessaires pour les programmes Basic de ce mois-ci. 


CHARLEX 


STACKLEX  STACK XWORD 225027 


STRUC2 END XWORD 225066 WHILE XWORD 225067 
REPEAT XWORD 225068 UNTIL XWORD 225069 
LEAVE XWORD 225070 LOOP XWORD 225096 
SELECT XWORD 225097 CASE XWORD 225098 
IF XWORD 225099 ELSE XWORD 225100 

FORMALEX 
CENTERS XFN 225034 CESURE XFN 225035 
FORMATS$ XFN 225036 REDUCES$ XFN 225037 
SPACES$ XFN 225038 


10 CALL MLEX @ SUB MLEX à SFLAG -1 Q PURGE AH à INPUT "Nb. d'octets: ":N à LC OFF 

20 CREATE DATA AH,1,N-4 @ A=HTD(ADDRS('"AH")) @ B=A à GOSUB 130 

30 Q=1 à X=0 à INPUT "000: ",P$;A$ à C$=A$ à S=0 à GOSUB 90 

40 Q=2 à X=1 à GOSUB 80 à AS$=AS&CS Q A=A+37 à N=N*2+37 à Q=3 à SFLAG 5 à FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=C$[5*FLAG(5)+1] @ POKE DTH$(A),C$ à A=A+16-5*FLAG(5,0) à NEXT X à Q=4 
60 DISP DTH$(X) [3]; à INPUT “: ",P$[1,MOD(N,16)]1;C$ à GOSUB 90 

70 POKE DTH$(A),C$ @ POKE DTH$(B),A$ @ CFLAG -1 à END 

80 DISP DTH$(X)[3]; @ INPUT ": ",P$;C$ 

90 DISP DTH$(X)[31; @ INPUT " sm ","---1:D$ 

100 M=S à FOR Z=1 TO LEN(C$) @ M=NUM(C$[Z])+M+1 @ NEXT Z 
110 IF D$=DTH$(MOD(M,4096))[3] THEN GOSUB 130 à S=M @ RETURN 
120 DISP "Erreur de somme! à BEEP @ P$=C$ à POP à ON Q GOTO 30,40,50,60 
130 P$=h----s-smsucsese " à RETURN 
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CHARLEX 624 octets 


0123456789ABCDEF sm 


000: 34841425C4548502 35E 
001: 802E000000000000 68) 
002: 5E4001EFF0000000 9FD 
003: FE0000000800001F D57 
004: F31BF961400032BF OEA 
005: 38F14A11DB10AD23 484 
006: 07D532BFB8FD7911 837 
007: 11AD754D7A101743 BBA 
008: 11014D1CB15D0000 F25 
009: 71450375FF864834 2A2 
00A: 5655581008355654 5F9 
00B: 5810070507701724 93F 
00C: 7700775070077517 C92 
000: 2077040708364545 FEO 
00E: 4A300004A49724000 333 
00F: 0808094A2C180814 690 
010: A464242008355455 9F6 
011: 581000054C714000 D3C 
012: 0C3142404C700832 098 
013: 41414A70002078A0 3F0 
014: 2F30000000000000 71B 
015: 0000000000000000 A2B 
016: 0000000000000000 D3B 
017: 0000000000000000 04B 
018: 0000000000000000 35B 
019: 0000000000000000 66B 
01A: 0000000000000000 97B 
01B: 0000000000000000 C8B 
01C: 0000000000000000 F9B 
010: 0000000000000000 2AB 
01E: 0000000000000000 5BB 
01F: 0000000000000000 8CB 
020: 0000000000000000 BDB 
021: 000000000000080€ F06 
022: 1A28080008080A2C 270 
023: 180008040E340800 5B9 
024: 08001E3018000000 8F3 
025: 0000000000000000 cO3 
026: 0000000000000000 F13 
027: 0000000000000000 223 
028: 0201000000010200 539 
029: 0000000201020000 84E 
02A: 0001000100000002 B62 
02B: 0102010000000000 E76 
02C: 0000000000000000 186 
02D: 045E755142400101 4D2 
02E: 0101010000000000 7E5 
02F: 0000000000000000 AF5 
030: 0000070507000000 E18 
031: 00000000083444C4 156 
032: 44400D7901112D70 4B6 
033: 050D750509700000 800 
034: 0D70000000384540 B43 
035: 4020014E322E3140 E97 
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036: 
037: 
038: 
039: 
03A: 
038: 
03C: 
03D: 
03€: 
03F: 
040: 
041: 
042: 
043: 
044: 
045: 
046: 
047: 
048: 
049: 
04A: 
04B: 
04C: 
04D: 
O4E: 
04F: 
050: 


STACKLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
004: 
008: 
00C: 
00D: 
O0E: 


STRUC2 


084E 794142400000 
00000000002E4559 
3200000000000000 
0000000000000026 
5556587008365556 
5810083645464830 
0832414248700024 
5655587008345655 
5810083446454830 
0C3042414C700024 
5556587008355654 
5810083546444830 
0C3142404C700025 
5455587008355455 
5810083544454830 
0C3140414C700875 
1414187000044972 
40000€3159454E30 
OC7A0F7949400024 
5554587000084A71 
40000C523A262D10 
0424587458400875 
1415187000094A70 
4000083544454830 
0C3140414C300€74 
5655545000054c71 
40000 


0123456789ABCDEF 


35451434B4C45485 
802E000000000000 
6C0001EB18100000 
F710000000000000 
0E2000)935451434 
B4B11FF8DE6A208D 
394509FFFFDEFFF8 
F681F08FBC631490 
8D91FB03310018FC 
70B14BECC1B679F2 
158018675F214613 
43500030015cC5165 
CC56F1321BB75F23 
150140164A6E56F8 
D84A80F 


0123456789ABCDEF 


1E7 
525 
83A 
B52 
EB1 
202 
543 
8A0 
BEF 
F44 
2A1 
5FO 
946 
CAO 
FEE 
350 
6A1 
A01 
D79 
0D5 
436 
78D 
ADD 
E21 
189 
&EO 
5D9 


97 octets 


sm 


370 
69F 
A04 
D32 
093 
45F 
858 
BFD 
F94 
350 
6BA 
A03 
DAC 
127 
2CD 


1541 octets 


sm 


000: 3545255534230202 342 
001: 802E000000000000 671 


002: 
003: 
004: 
005: 


FOCO01E246448B00 
FB30087000000000 
072600D230F6600D 
61019600D520A960 


9EE 
D38 
0A6 
408 


006: 
007: 
008: 
009: 
O0A: 
008: 
00C: 
00D: 
00E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
O1A: 
018: 
01C: 
010: 
O1E: 
O1F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
02A: 
028: 
02c: 
02D: 
02E: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 
036: 
037: 
038: 
039: 
03A: 
038: 
03C: 
03D: 
03€: 
03F: 


0D90069500D554E4 
44249C4541465546 
4B25540554144544 
955E44594C454975 
8494C454341FF303 
0014040202020202 
CC230BF354727573 
64757275602D4963 
7D6164713686CFF0 
38DE6A208DA2C207 
SFFFE1E34420FE1E 
06820FE1E16710FE 
1E36410006351185 
012165002218580C 
0208D82D20185011 
371FAA8F2AC21554 
135719FFE1E46DDF 
007E408FB394031A 
8966A18F8EC20AA6 
BB6BB679AF6B1072 
207430313F966D08 
F8EC2070208FEA23 
044B8D271308F9DF 
30870935CE8F9DF3 
0870A230187340E6 
8161371FAA8F2153 
494811135942008D 
53E201554135018F 
D96307B9F7BCE4F9 
000068401818FB39 
40310F9628131049 
62F03112962606F1 
0626F1371F088F21 
57413594E40018D5 
30308D0745014B7B 
D4474D61708F6242 
0510220300339464 
23653037C4F4F405 
2765203B3554C454 
34452B6110397584 
94C45429749014B8 
D303507D80390245 
8454E4296FDF7D54 
5213754C43554276 
8cF153331A896631 
8F0E 160754017252 
27240313F966C137 
0245F40227722017 
11487F108FCE2503 
1C221770017166AF 
8D324508D229506F 
EFF83EFF18770351 
678F871F030998A1 
331E0962828F83DB 
07c151B178F2137C 
2144164140AC25C0 
7DF4AC2B461B098F 
2154477C47015267 


784 
AEA 
E44 
1CcB 
54E 
871 
BFF 
F6C 
306 
6AE 
A7E 
E19 
16A 
4Bé 
814 
BBC 
F85 
30A 
éc1 
A7E 
DEC 
196 
53A 
8E9 
c50 
FDC 
33B 
6A1 
A73 
DDB 
134 
490 
81C 
B8D 
EFF 
284 
SBE 
93B 
CA7 
007 
382 
6EB 
A9E 
E00 
183 
4EE 
85D 
BBO 
F46 
2B9 
63D 
9FA 
D8A 
120 
4A9 
812 
BD3 
F34 


040: 
041: 
042: 
043: 
044: 
045: 
046: 
047: 
048: 
049: 
O4A: 
048: 
04C: 
04D: 
04E: 
04F: 
050: 
051: 
052: 
053: 
054: 
055: 
056: 
057: 
058: 
059: 
05A: 
058: 
05C: 
050: 
05E: 
05F: 
060: 
061: 
062: 
063: 
064: 
065: 


D1578C4165312414 
A962F016114A7D43 
5606D9031A8966A3 
1F088F2161156415 
541607AA41361B08 
8F2156413480DF77 
605444B5778414A3 
13F962E0227B4058 
24F3267F30551161 
7F54237F205C0432 
1617C4414A311F96 
6cC016114A6D6F673 
F7BF365B280CF201 
361B698F21441B09 
8F21524A4C413109 
8F45DB0044B11298 
0DF1298F53400042 
065B08D51DB0AC78 
F83DB0137C21351B 
678F2146841840AC 
O8AA218A8868A601 
8505418A8C25C38B 
670851D618414213 
08F7C1B120AC0482 
860013028160E4E6 
B20871B13018160E 
4E681014A14F9E29 
E3048160E4EACB0E 
4694C201B698F214 
61340163DFF47BFF 
18776232873336D8 
1EFCFF9FAFF70D28 
FE3F804033098169 
4752DB13416314A8 
F3E3203471006010 
449000066210C0C8 
0C020A87309A0B80 
DO7A6276C26021D2 


: CFFC9AFF14A7EFO4 
: D030090272501313 
: 479E17F915E07032 
: 7CB16FD08D84A803 
: 10677C175A168C05 


DBFFD3AFF7212776 
15E078F174816BCF 
207A4264A051CFF0 
1AFF78616FAF89BF 


: FO0AFF1361B698F2 


144314473611B698 


: F21461347C014E07 


D9179216C406C6F7 


: CBFFAEAFF7BEO4DE 


257AD164305ABFF6 
1BFF2376C1602020 
33301E8DA93908D5 
045078411877E811 
36134D787DD13210 
88F1C8111378B70C 


29F 
627 
9AB 
D18 
08A 
412 
783 
B01 
E6B 
1E6 
560 
8ED 
c98 
018 
38E 
71A 
AA& 
E4C 
1DF 
564 
8F0 
c82 
FDF 
36F 
616 
A45 
DD7 
188 
50E 
8BF 
C2D 
029 
3B0 
728 
A81 
DDF 
158 
4E0 
8D4 
c30 
FB7 
368 
6E5 
ABB 
E61 
1F1 
5D1 
980 
CEO 
056 
3F0 
80F 
BBA 
F39 
2CB 
62E 
9A8 
D3B 


07A: 
078: 
O7C: 
070: 
07E: 
O7F: 
080: 
081: 
082: 
083: 
084: 
085: 
086: 
087: 
088: 
089: 
084: 
08B: 
08C: 
08D: 
O8E: 
O8F: 
090: 
091: 
092: 
093: 
094: 
095: 
096: 
097: 
098: 
099: 
094: 
098: 
09C: 


O9E: 
09F: 
0A0: 
OA: 
0A2: 
0A3: 
0A4: 
0A5: 
0A6: 
0A7: 
0A8: 
0A9: 
OAA: 
OAB: 
OAC: 
0AD: 
OAE: 
OAF: 
0B0: 
0B1: 
0B2: 
0B3: 


c28B39B86F7786D2 
71F0B7F22030214B 
0E06A0C4951FD55F 
214713517E143F43 
4412E08A68313610 
A1341FC65F2143E6 
E68BAC18F95EF011 
A1348FB7EF011213 
08D7E4708F871F08 
FD8DB004AC05D097 
C00110AC097C0001 
3098161851328F31 
F808161341650110 
88FE3F8043430981 
694783DB134AF015 
A51657630118AE5A 
F2AE9BF2BF2BF2BF 
233FE1E9720061AE 
18198F2146134011 
361B198F21441340 
11371F1C6F214513 
5011F1C6F21471E9 
95F1458D681F0D01 
4A136C213401614E 
80CF208F5341080D 
F80C0201F088F215 
501F765F214787D3 
1321088F1C811137 
C2D731FE8F99A805 
CA795F16114A311E 
962606DA016114A3 
124962023F340644 
16365426462F8F89 
0B14F78F3E32034F 
5006850441503664 


: 016B30001F088F21 


5708F62420850811 
760E01D01D60F707 
FO5D0A8058008028 
6D002767000C0C80 
cF2070211F088F21 
554798E1817FCE63 
OF7A7E16514A7D1D 
51160D031547FD04 
716BFC314670D048 
02261906CA031267 
BB043F215C70C0C8 
OCF20AC714A33462 
6238F890B15C3312 
4966911611520301 
90242302902C1ACB 
8126F0F31267F504 
702150275DD18178 
1E6F4E3146704048 
EOCOC80CF2071BD1 
6514A745C4028129 
0681789D18172504 
0077DD6B0E632C14 


OEE 
468 
817 
B80 
EE5 
è7E 
641 
904 
D73 
12C 
499 
7FA 
B4D 
ED9 
269 
5F1 
9EE 
D86 
0E8 
44F 
7C2 
B4C 
EEO 
24D 
57 
95F 
CE7 
04D 
40A 
7A1 
B14 
E6C 
1EE 
58A 
8D3 
C3F 
F9E 
324 
698 
A09 
D8E 
131 
4DD 
850 
BDE 
F3F 
2E0 
66E 
9EC 
D33 
OAE 
42D 
7A5 
B25 
ED2 
240 
5A7 
93D 


0B4: 
0B5: 
OB6: 
0B7: 
0B8: 
089: 
OBA: 
0BB: 
0BC: 
0BD: 
OBE: 
OBF: 
0C0: 
0c1: 
OC2: 


FORMALEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
004: 
008: 
00C: 
000: 
O0E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
014: 
018: 
01C: 
01D: 
O1E: 
O1F: 
020: 
021: 
022: 
023: 
024: 
025: 


A96200011F495F21 
43E41418F156818B 
E911F088F2157013 
11C01550018DD449 
01FF85F214717414 
38A200cc14113115 
701F088F21550011 
E064600000FB3000 
00000000)1091BFF 
D8204C7FFD00030A 
FFD61035BFF9B005 
éBFFD73414355426 
754C435544639464 
367C4F4F40506B35 
54C4543445161FF 


0123456789ABCDEF 


64F425D414C45485 
802E000000000000 
093001E226200000 
FB30000000000000 
066100F110EA200F 
020EC100F130E110 
0F2407D000FD3454 
E44554254222B345 
43555255432D64F4 
25D414454242D255 
4445534544252B35 
0514345442621FF0 
48F83DB01368F534 
B1137C2109134135 
D38508418423102A 
ESCC4E2851CC1811 
4E965F08708EE 785 
05808408521C114D 
51D86011861C0862 
70171CF018118FBC 
631440D017F13713 
51098F064A173004 
B231025908F40581 
CC56F01411714F11 
98FB14B811368408F 
064A180781818D91 
FB0842274508F13D 
B0137135C21098F0 
64A1118C642D8A88 
18BE31E2AD0DA81C 
81C787F8508F7B18 
18FE83B18DC32F08 
FBC6315598A80917 
F1000180D4490842 
27ADF769E119110E 
244EE24FD10ADA13 
416F41D1361B495F 
21328BEFB119AF0D 
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cB2 
035 
384 
726 
AA5 
EOA 
16) 
4CD 
83A 
BDA 
F97 
328 
697 
A27 
D73 


454 octets 


sm 


385 
6B4 
9F2 
D2D 
OAO 
40C 
780 
AF7 
E6A 
103 
530 
895 
C2C 
F8A 
2F0 
69A 
A42 . 
DA8 
114 
4AB 
80E 
B75 
EDD 
25F 
5F4 
985 
D13 
086 
418 
7D9 
B88 
F3C 
26 
64D 
9EE 
D9D 
12C 
&E1 





026: 
027: 
028: 
029: 
02A: 
028: 
02C: 
02D: 


A137135EA81C1188 
B6348A2A3E48AB33 
EAF8DB10B8FE6CEO 
20108D8E57320110 
118E2CD751011A13 
56CCE31528D39390 
D73102662014B171 
1481619661FD4580 
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86A 
c12 
000 
35F 
6E5 
A7A 
DD9 
14F 


O2E: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 


14C161CC57FCF8AF 51F 
AD018422730FD88F 8BF 
83DBOD6ADODAB1C1 C81 
37135C2C2D78B497 017 
E9E91353F02F312E 3B8 
2C2A3B3920A14B96 74A 
261850CD4801715C AC4 
E1104241108A0D12 E27 


036: 
037: 
038: 
039: 
03A: 
03B: 


71C114BBF6BF6962 1D7 
710D52F4B18709CC 575 
C10051C1188A160E 8F1 
SESD4CCDB1351CF8 CBF 
FB13B1AF68D832F0 O7A 
F oc1 


Auteur 


J.J. Dhénin 

J. Taillandier 
P. David 

P. David 

J. Taillandier 
P. David 

Le Bureau 


J. Taillandier 
E. Gengoux 
E. Gengoux 
E. Gengoux & R. Amram 


E. Gengoux 


P. Courbis 

P. Courbis 

P. Courbis 

W.C. Wickes 

G. Le Stum 

P. Courbis 

P. Courbis 

S. Lalande 

G. Toublanc & S. Lalande 
P. Heïlbronn 

S. Lalande 

P. Courbis & S. Lalande 
P. Courbis 

S. Lalande 

S. Lalande 

H. Thévenon 

P. Courbis 

P. Courbis 

P. Heilbronn 

S. Lalande 

P. Heiïlbronn 

S. Lalande 

P. Courbis & S. Lalande 
P. Courbis 

T. J. Affinito 
D.T. Khoiï-Nguyen 
S. Vaudenay 

R. Chiche 

J. Devémy 

M. Besson 

P. Heïlbronn 


P. David 

M. Markov 

0. Arbey 

J. Hulaas 

P. David 

J.M. Baillard 
G. Mangeney 
G. Mangeney 
E. Gengoux 


O0 VO CU 5 5 œ OU  # 


= 
© 


Compte rendu des Assemblées Générales 
Nouveaux calculateurs HP 

Nouveaux produits CMT 

A propos du Club 

Paiement hors de France 

20 + 22 + 27 - 28=417? 

L'avenir du Club 


Un trésor caché du HP-27S 

Plus loin avec La HP-27 et SOLVE 
Billet doux (acte 111) 

Lu pour vous 

La devise de La HP-27 


34 Ko sur HP-28C 

Le tour du HP-28C 

PEEK et POKE pour HP-28C 

Du nouveau à propos du HP-28S 
Questions, réponses 

Choc en retour 

Mode horloge pour HP-28S 

HP-28 GTI 

Chocs en retour 

Le facteur est constant 

Liste des adresses du HP-28S 
Grand jeu pour tout HP-28 
Assembleur pour HP-28S 
Sauvegarde d'écran pour HP-28C 
UP pour HP-28S 

Jeu intégral 

Choc en retour 

PEEK et POKE pour HP-28S 

Le facteur est constant (acte II) 
Matrice de fraction 
Ajustement de courbes 
Modulation, démodulation 
Solution du grand jeu 

Choc en retour 

Système 411 Version 3 
Définitions de caractères 
Assembleur sur HP-28C 1CC 
Tracé de courbes 

Trois petits programmes et puis s'en vont 
Géométrie analytique 

Le facteur est constant (acte III) 


Module infra-rouge pour HP-41 
Utilitaires de gestion de disques (111) 
Le module Hepax pour HP-41 
Multiplications de matrices 

La bibliothèque de Genève 

Algèbre linéaire 

Formats Microcode 

(Dé)privatisation 

Edition de codes barres 


| Langage 


Equation 
Equation 


Equation 


RPL 
Assembleur 


RPL 
RPL 
RPL 


| 

| 

| 

| 

| RPL 
| RPL 

| Assembleur 
| Assembleur 
| Assembleur 
| Assembleur 
| RPL 

| RPL 

| Assembleur 
| Assembleur 
| RPL 

| RPL 

| RPL 

| Assembleur 
| Assembleur 
| RPL 

| RPL 

| RPL 

| RPL 

| RPL 

| RPL 

| RPL 

| RPL 


RPN 


RPN 
RPN 
RPN 
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. Baudier 

. Duret-Lamouroux 

. David & J. Taïllandier 
. Istria 


Bille 
David & J. Taillandier 


. Rottman 
. Vaudenay 
. Vaudenay 
. Elhay 


Maille 
Gui Llou 


. Bille 


Filippini 


. Vaudenay 


J.J. Dhénin 


0. 
X. 
J. 
F. 
A. 


Arbey & L. Istria 
Bille 

Baudier 

Vadez 

Boldireff 


J.C. Kursner 


Vaudenay 
Markov & E. Gengoux 


. Dardennes 


Istria 

Gui LLou 

Istria 

Aspero 

Gengoux 

Bille 

Markov 

Toublanc 

Gil 

David & J. Taillandier 


. Kudelski 


P. David 


. David 


J.Y. Hervé 
J.Y. Hervé 


E. 


J.Y. Hervé 


Gengoux 
& E. Gengoux 


J.Y. Hervé 
J.Y. Hervé 


E. 
R. 


Gengoux 
Atlan 


J.Y. Hervé 


E. 


Gengoux 
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L'assembleur du HP-71 (acte VI) 
Modélistes, à vos tours ! 
Programmation structurée (acte 1) 
Hanoï et La récursivité 

Démontrez vos théorèmes 
Programmation structurée (acte I1) 
Dérivées symboliques (acte I quinte) 
Initiation à Lisp 

Lisp en Forth 

Quelques fonctions 

Calendromanie 

Compilez vos constantes 

Chaînes alphanumériques en Forth 
Un Lex pas si complexe 

Full error jacket 

Tension de batterie, fréquence d'horloge 
Le dérivateur (acte 11) 

Catalogue des mots (acte I1) 
L'assembleur du HP-71 (acte VII) 
Le temps enchaîné 

Paginez vos lettres et textes 
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ENGLISH SUMMARY 
JPC 60 - DECEMBER 1988 / JANUARY 1989 


One more year of JPC ! This is our 60th issue. 2647 pages have been published during these 6 years : a nice 
achievement. 


This issue begins with a short description of the main features of the new HP-42S by Janick Taillandier. This 
machine is an upgraded HP-41, but still no Input/Output and modules are available. 


On page 6, Eric Gengoux and Robert Amram review two books dedicated to the HP-27S (An easy course 
using the HP-27S by Chris Coffin and John W. Loux, and Mastering the HP-27S by Richard Harvey). Both 
are found well worth investigating. Next, on the same page, Eric Gengoux explains how to use the HP-27S to 
master exchange rate conversion from any unit to any one. 


The HP-28 columns begins on page 7 with a article on plotting with polar and parametric systems. Next, 
Jérôme Devémy lists three programs to compute the number of zeroes at the end of a factorial, to compute 
Stirling formulac and rational number approximating a real one. Next, one of our Swiss friends, Mathieu 
Besson, gives us 11 programs to do analytic geometry. Philippe Heiïlbronn, on page 12, presents us the third 
version of his program. 


The HP-41 columns includes three articles. The first, on page 18, is from Gérard Mangeney and describes a 
conversion program between microcode 244 and 442 formats. The second program, also from Gérard, 
allows you to private and unprivate your HP-41 programs. Both programs use the CCD module. The last 
article, bu Eric Gengoux on page 19, is a complete survey of all methods to produce bar codes for the 


HP-41. 


The HP-71 columns begins with a short article describing two new software for this computer. The first one 
is DEVROM by Jan Buitenhuis and Fred Van der Vindt. Job is still in progress, but their assembler is 
working now. Their project is to produce a complete assembly language development environment for the 
HP-71. The other one written by Pierre David and Janick Taïllandier is a text editor fully compatible with 
EDTEXT, with a lot of added features and an incredible speed. This editor will be available by the beginning of 
next year in the new version of JPC Rom. i 


The second article of this column is a new version of STACKLEX without the nasty bug which produced a 
Memory Lost after INIT:3. This version was written by Henri Kudelski, from PPC Lausanne. 


Then, Pierre David gives us two small but very interesting programs. The first one is a new version of a very 
old formatter which was used for years to produce JPC. This new version uses extensively IPC Rom. Thus, 
the program is much more structured than previous version. The second program allows you to produce a 
directory listing of a mass storage without using cATS$ function, so it is efficient and preserves drive batteries. 
This program is now obsoleted by PDIR from Jean-Jacques Dhénin which gives the same functionalities in 


assembly language. 


Until next year, 


Merry Christmas and Happy New Year ! 





